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1, abstract 

TMs program To a modTHtd version of 
HA:noEC-13w01BC<MXCH1J ) i It To designed to ©rovlde 
a worat-oata testing oattarn for both 950 
nanosecond and 800*nanoseeohd memory staphs, The 
program tastf for switching fall up •• In Individual 
ooras under worst-ease K* |?*se I aet noise 
conditions, It also tasts for the swjtehlng of 
unstable ooras affected by rapaated half* salaet 
our rents , 

Ooaratlon of MXC15B la almost Identical to that of 
HXCHl5| On|y tha ACS test selectors and tha halt 
addresses ara different', 


2 ', REQUIREMENTS 


2,1 Efluloment 

Standard R0f»£5 wTth a minimum of 8192 words of 
oora memory, 


2,2 ppoor«m Storage 

Tn# oPooram ©ciouPTas tha first 3400(8) words of tha 
mamopy flald Tn which It Is eeeratlng’, 


3 , LOADING procedure 

The oPogpam Ts punched In ABS node, with HRJ 
I oadeP , 


3’,i Normally, the orooram Is loaded Tntc memory Maid 

00 . 


a’, Place tha tape In tha reader, 
b*, Set the Address Swltehes to 17700', 
c , Press RESET, then REAO IN', 


When the taoe has been read, the computer stoos, 
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3', 2 The orogram pan be loaded 1 pit© tha I ewap half of 
any 8K memory bank, by elaelna tha maehlne In bank 
MODE i and sitting Address Switches 3*4 to tha 
daaTpad bank number', 


4’, starting PROCEDURE 


4 i i Starting Addressl 00200', Sat the AddPass Swltchaa 

ta 00200 , and proas START', 


4’,2 RaataPtlna, Td pa-aatabTlah the T ^ 1 1 T a I 

oondlTiona, start tha oreflpam at addpass *0200, 
wh#rs f la the eiiprant msmory bank Tn which tha 
orogram la looatad, 

To retain ourrent program conditions, paatapt In 
location f 0215 , 


3, operating procedures 

A memory field la one 4096-ward aegmant, Held* 
aPa numbered aaauantlally from 00 through 37(8), 
Rlalds 00-07 are In memory bleok 0, fields 10*17 In 
block 1, and so on, 

The ooerator eommunleatea with the program v]a the 
AC Switches or tha Teletype keyboard', 

Tyolnfl errors oan be eliminated by striking R'JBOUT, 
The Program will delete typed Input for that line, 
and request a new entry, 


5,1 initial Operator Aotlon 


5,1,1 Teat Limits, After starting at location 00200, the 
o'ogram types 

TEST LIMITS 

The a^ea to be tested |s specified by tyolng the 
seta I ■'umpers of the limiting memory fields, The 
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two numbers are separated by a comma, and followed 
by a carriage return, Any two # T e Ids » Including 
that which contains the program* may be selected as 
I T m T t 9 * and either limit may be typed first, 
Ckamp I es | 

TEST LIMITS 
00,09 

Memory Helds 00 through 09, InoTusTv* (addresses 
000000 through 097777), wljl be tested, Note that 
two digits must be typed for eaeh Hol'd number, 

a slnQle field may be eheseni 

TEST LIMITS 
03,03 

If, however, the alnsTe field Is that containing 
tha program, the ohelea will ia rajaetadl 

TEST LIMITS 

00,00 

PROGRAM IS JN PlElD 00 
TEST LIMITS 

The program wT I I crocaed whan aeggptaOle limits 
have been ehoaen', 

If only a single digit I® u»sd to speolfy a f|a|d, 
or If a f T • Id number greater than 37(8) Is tyoad, 
tha limits wl'l'l not be aeoepted'. An example of 
both errors! 

TEST LIMITS 
i,42 
? 

TEST LIMITS 

CAUTION! Do not se|eot moft memory than la 
actually available, a.g'i, typing an uooer l|*|t of 
i 7 when only Helds 00-07 art provided, The action 
of t h e program Is unpredictable when trying to 
address nonexistent memory locations', 



MXC15B 


PAGE 3 


5,1,2 Sit up ACS, After the test limits have b««n 
aecaotad, the program types 

SETUP ACS 

Sat the AC Switches aa desired (saa Tab 1 • > l fop 
normal o'paratTon, ail tha swltohea ara sat to 0, 

Strlka any key on tha Keyboard, tha message 

PROGRAM IS in r I ELD 00 

la printed, and tha teat begins, It will run 
continuously until stopped by tha operator, 
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Table of AC Switch Settings 


ACS state 

0 0 

1 

1 0 

i 

2 0 

i 

3*5 000 

» • * 

9 0 

i 

11 0 

i 

12 0 
i 

13 0 

1 


function Deterlbad 

In Section 

Continuous operation (normal) 5,2,2 
Stop aftar tasting currant 
field or aftap error grlnt* 
out 

Print error data and eon* 5,2,2 
tlnua (normal} 

Halt before efror orlnteut 

Proceed as seTeeted by 5,2,3 

AtSi (normal) 

Ping be|| on error) no print* 
out) ICS 1 !■ Ignored*, 

Oo alt' three tests In sueeas* 5,1*, 4 
slon (normal) 

Any twitch get to l selects 
that teat 

Automatic program relboatlon 5,3,3 
(normal ) 

Do not relocate program. 

Print "PROGPAM is IN HELD 5,3,1 
ff" after each relocation 
(norma I ) 

Do hot print message 

Normal' program relocation 5,3,4 

sequence 

force relocation to sbeelf* 
led field 

Normal' test saauence 5,4 

Request scope loob 


14 


0 Test entire word (normal) 5,5 

1 Suppress printout for select* 
ed bits 


5', 1 , < Test Selection! ACS 3*5', Three tests are o s o v | ged , 
Tests 1 and 2 use storage patterns that establish 
worst"Case noise conditions on the sense wlrg, 
Test 3 checks for switching failures 3yrjng 
repeated ha I f -st I'eetT ng , Tha execution o* the 

three tests Is controlled by AC switches 3 , A , and 
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5i 

Test 1 (ACS 3), Worst-case Batters for 800-naec 
memory stacks, 

Test Z (ACS 4), Worst-ease eettern for 950-nsee 
stacks', 

Test 3 (ACS 5), Switching failures In copss 
subject to repeated ha|f«ee|eet 
eup pent« : » 

If all three switches are set to 8, the three tests 
ape done In suceaeiTon oveP the entire test area, 
If any switch Is set to 1, the teet specified by 
that swlteh Is performed, 


5,2 Program Operation 


5,2,1 in normal ooeratlen, the tests are performed In 
OPderi it 2, and 3, A descrlotlon Is given In 
Section 9, 

Tests 1 and 2 are ldantfoal ekceot for the pattern 
written In memory', The pattern Is written In all 
Held*, then eaoh word, starting at the lowest 
address. Is tested for failures, When « | I 
locations have been tested, the complement of the 
pattern Is written and tested', 

In test 3, the entire test area Is flj'led with is, 
A single word Is cleared to 2s, and rspeatedly 
addressed’, Other words affected by the ha|f»se|eet 
currents are then tested fo r switching failures, 

After th« selected tests have been executed* the 
proorem Is relocated (see Section 5', 3) eng the 
tests are repeated. 


5,2,2 Pr oorem-contre I I Cd ha Its I ACS 2«*1’, 

To Insure program cbntlnylty, the console STOP 
swltoh should not be used to halt the program, AC 
Switches s and 1 provide program-centro II ad 
stooping points, at which the operator may ehange 
th§ settings of the otnor AC Switches, The ehanges 
tawe effect Immediately after resuming operation by 
pressing CONTINUE’, 
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ACS 0 01 The program runs cent! nuoua I y , 

ll Tha program will «tOD at either of two 
points'. 

i« Aftsf an • p p b r printout, Contents 
ef bits 6*17 of the MO register 
ara 0734', 

b, After tasting haa been eomo | •t«b 
In tha current field, 

C ( MO f 6-17 ) > p 0642, 

in both cases, tha ACS may ba changed’, Praas COMT 
to oroeeed, if tha AOS settings have bean changed, 
tha toot than bains akeegted Is tarmlnatod, anq tha 
new switch settings take affect*, if the ACS have 
not bean ehanoad, tha taat resumes from tho point 
at which Tt was stooped’, 

ACS 1 $ l CrrOP data ara pointed as usual, 

ii tha program halts before the arrer 
printout, C(M0U»17)> » 0730, 

To Proceed, press CONT, ACS ghanges ara aeeaptsd 
I mmadlata'I'y , 

EXCEPTION! Aftap gfror Printouts hava been 
Inhibited (sea Sgotlen 6.1,3!, ACS 1 no longor has 
any affeot, and ACS 0 will eausa a halt only aftap 
a flald has baan taatad (oasa b abova)', 


3', 2, 3 Ringing tha Error Ball! ACS 2’, 

If ACS 2 Is sat to li a ball rings at tha 
occurrence of an error/ tha error printout Is 
suppressed, and ACS l Is Ignored', The ball 
function Is useful whan an Intermittent error Is 
suspaetodl tho program doss not stop* and tha 
freouancy and/or regularity of the boll gives an 
Index to the performance of the core stack, 

Note, however, that ACS 0 remains In effeetl the 
program wT I I halt after the ball If ACS 0 Is s#t to 
1 ‘, 


5’, 3 prooram Relocation 


5,3,1 Automatlo Ra | ocatTon’, whan all tests have bean 
completed In tho selected fields, the program Is 
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fe|oo*ted to the hlghgst teeted field In whleh no 
error was found during the preceding fun, From 
th|e "aw location. the teats are repeated |n the 
other selected fields'. After eaeh test run, the 
prooram Is rel'ocated Tn the next loner arror-free 
Meld, untT | Tt reaohes the bottom of the test 
area, Prom there, Tt boss bask to the too, For 
example, assume fields 02*10 are ehesen as tost 
limits, After the first test fun, the program 
relocates from field 00 to field 10', From there It 
will 00 to field 07. then 06, 05, 04, 03, and 02, 
sklbplna any fleldjs) In which an error was 
detected durlna the previous fun', From f 1 e | d 02, 
the program will relocate to field 10 onee more', 

Immediately after etch relocation, the message 

PROGRAM IS IN FIELD ff 

Is printed. The message may ba suppressed by 
setting AC SwTteh 11 to 1, The printout will 
resums when ACS 11 is set to 0, 


5*, 3, 2 Exceptions, Ths program will not rsloeats 
automatically yndsf any of the following 
osndl t I ons i 

a, 0*!y one field has baen selected for testing, 

b", There are no error-free tested fields, 

o', ACS 9 Is sst to 1 (see Section 5,3,4) , 

d’, A forded relocation has been made (see Section 
5.3,5), 

In each of these cases, the program remains where 
It Is, and the the test run le rebeated, 


5,3,3 Program protection, To protect against program 
failures, two Internal checks are made, First, the 
program will not relocate to any field In whleh an 
error was detected during the previous test run, 
Second, when relocation does take o|ace, the 
transfer is checked word by word with the souroe 
field) errors In transfer are tabulated and printed 
(see Sectlo* 6.2,1). 
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5’, 3, 4 R« | oc a tTon oreventedl ACS 9‘, the operator can 
prevent automatic relocation by using ACS 9, 

ACS 9 01 Relocation occurs normally, 

It Program does net relocate* but 
oontlnusa testing from Its 
current ‘location', 

When ACS 9 Is set to 0 again* automatic relocation 
will resume’, 


5,3,5 Forced Pel’ocatloni ACS 12', The oberator ean fores 
the program to relocate to any sbeeHIed field* by 
using ACS 12* as follows! 

a', Set ACS 0 to 1, and wait for the program to 
halt, 

b", Set ACS 0 to 0 and ACS 12 to 1, Press 
continue, The bregram types 

PUT ACS 12 ON A 0 

and waits for this to be done', 

o', Set ACS 12 to 0', Immediately* the program 
types 

GO TO FIELD 

and waits for a f T • | d number', 

d', Tyco a two-digit field number', The program 
relocates to the new field, and proceeds with 
the test, 

A f ter a fbroed relocation* the program will no 
longer relocate Itself automat 1 ea I I y , T o restore 
the^automatlo funetToh* restart the program from 
address 200, setting new test limits', 

ForeeO relocation will not occur under either of 
the following conditions! 

a*. An er'or was detested In the destination field 
during the preceding test run', In this case, 
the message 


ERROR IN SELECTED 4K 
GO T 5 HELD 
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1* typed, Type a new f 1 • | d number* op a 
Capplage Return to retain the program In the 
ewppant f T a i d i 

b* Api error dccupa during rsToeatlen', Tha error 
1 nf o rmat I on Ta printed (see Section 6,2,1># 
^ o I ! owed oy ”G0 TO f 1 ELD” , Ppooaad as 
daoepTbed In can A above, 

If the peciuosted deatTnatTon Held la tha on|y ona 
that has been selected fop testing* the OPogpam 
will Ptloeata, and than restart at program addpaas 
200* with the message ’’TEST LIMITS”* so that new 
limit* can be chgaan'* 


5*4 Seooa LoodsI ACS IS’, 

This Program option allows the ooapatoP to examine 
signal traces on a scope undep the conditions 
Imodstd by the thpaa tsstf* Tha test functions are 
parformad on ona of mope memory loeatlons* but no 
eprop cheeking Is done* no messages ape opfntad* 
and thepe ape no halts, Fop tests 1 and 2, any 
numbeP of consecutive locations* from i to 4094* 
may be Included In tha loop. Fop test 3* only one 
pegTstap Is used, 

To Initiate a scope looo* proceed as followsi 

a", Halt the program by setting ACS 0 to 1, 

b’, Set ACS 13 to 1, and ppess CONTINUE. The 
message ” T E S T ” Is pplnted* and the OPogpam 
w«lts fop a re Quest', 

o’, Type tne nymbeP of the deslped test. An 
automatic CR # oi'lbws* and the message 

FIRST aOR 
Is d p 1 nted , 

d', Type the addPess of the first location o f tne 
gPOuD to oe Included In the I'oop) this must be 
a s 1 x - d 1 g 1 1 octal Integer', The program 
responds with a CR and the message 

LAST ADR 

f *, Type the address of the last location, This 
may oe njgher or lower than the first address'. 
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The scope loop Ts begun as soen as tha last address 
Ts typed’, the loop will continue until ths STOP 
suite* Is orsssed't T$ rsouest another loop, or to 
ge back to ths normal tsat program! restart at 
program location 200', 

Examples of scope loop raauestsi 

TEST 2 

TIRSt AQR 010100 
LAST ADR 010100 

The pattern for Test 2 Is written throughout field 
li but tha loop Includes only location 100 In that 

field* 

TEST 1 

FIRST AOR 030102 
LAST ADR 037777 

The pattern for tost 1 Is written In field 03, The 
loop Includes looatTons 0102 through 7777 In that 
field, 

The araa Tneluded In the loop may overlao memory 
field** but ths test pattern will' be written only 
In tht field containing the first addrsssi 

TEST 2 

FIRST AQR 024000 
LAST AOR 016T70 

T*e pattern wT I I be written only Tn field 2i though 
the loop will Include addresses 016770 through 
024000, Note that the higher limit may be 
soeol f !ed first’, 

for Test 3 , only the first address Ts used, as this 
Is e single register test, Howsver, both addresses 
must be given’, The example Illustrates what 
happens when a selected address la Tn the program 
area I 

TEST 3 

FIRST AOR 002334 

FIRST ADR IS WITHIN PROGRAM 

PROGRAM IS IN TIELO 00 

FIRST AOR 012534 

LAST ADR 012534 
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If anything other than 1, 2, or 3 Is typed for a 
test number, Tt w! I I be pejectedi 

TEST 4 

n 

TEST 


S^A'.l Pfooram |ooo for Ta»t» 1 and 2, tha loop eerforns 
tha oompTanant-Pacdmp I emant operation on each of 
tha aalaotad register* In turn, Tha loop Is 12 
Jnatryetlans I one i 

9C p l EEM /ENABLE EXTEND MODE 

LAC* MEMADR /READ 

CMA /COMPLEMENT OATA 

DAC* MEMaDR /write 

LAC MEMADR /ADDRESS 

SAD ltst /compare TO LAST 

JMP STSCP /DONE 

1$Z MEMADR /INCREMENT ADR 

JMP SCP1 /LOOP 

STSCP LAC ADRA /FIRST ADP 

DAC MEMADR /RESTORE COUNTER 

JMP SCP1 /GO TO TOP OF LOOP 


5,4,2 Prooram |eoo for test 3, After writing a pattern 
of all la In the selected field, the teat location 
Is eloared to 0s, and repeatedly read', Th§ | o o o la 
two 1 instructions long! 

LAC* ADRA 
JMP >1 


5,5 Sit SupDressloni ACS 14 

Onoe a Dartlcular bit position (and heno* Its core 
plane) has demonstrated a consistent failure, error 
printouts duo to thTs bit can be eliminated from 
subseduent passes, Proceed ae follows! 

a, Halt the orogram by setting ACS 2 to 1. 
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b', Set ACS 0 to and ACS 14 to i, The message 
SUPPRESS 

is printed, and the prooram waits for Input, 

o’, Sat ACS 14 to 0’, Type tha number of tha bit 
position to ba suppressed, as a decimal Integer 
(®*17 ) , If more than one bit Is to ba 

sUPDressedi separata the numbers by commas, 

d", Strike the CR key', Tha tasts will start from 
tha beginning agalnj tha selected bits will ba 
Ignored for printouts’! 

Raouasts for bit suppression may be made at any 
time, and as freouent|y as Is desired, Eaeh 
succeeding request wipes out tha effect of the 
previous onei to rstaln the suoerasslon of a pit, 
Its number must be typed again, 

To remove all suppression reduesta, proceed as for 
a new reguest’, After the program types "SUPPRESS", 
type a carriage Return, 

Ekamo I as | 

SUPPRESS 0 <CR> 

SUPPRESS 4,9,13 <CR> 

SUPPRESS <CR> [removes all' suppression] 
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6', ERRORS 


6,1 Test Oata Errors 


6.1,1 Data eolumn header, Immediately after the first 
error Is detested, the fol lowing header la spirited, 
Identifying the eolumns of error datai 

TEST OCTAL ADR GOOD BAD PAT CONTROL WORD 

TEST The number***!, 2, op 3***ef the 

test which detected the error, 

OCTAL ADR The octal address of the loeatlen 

containing the data In error 

GOOD What the contents should have been, 

This Is always either 000000 or 
777777, 

BAQ The data as read, One or mope bite 

will be In error, The datum Is 
printed as ah octal Integer, 

The word used to generate the 
checkerboard pattern for the 

current test', Tor test i, this 

word Is 776000 or (for the 

comolement pattern) 303774, Tor 

test 2 Tt Is 525250 or 252524, No 
control word Is used for test 3, 

Once orlnted, the header will not be printed again 
until the program Is restarted from 200 or 215, 


6', 1,2 Data orlntout*. Error data are printed as soon as 
am error has been detected, A tyolcal printout 
might I ook like th I s I 


TEST 

OCTAL ADR 

GOOD 

bad 

PAT CONTROL 

1 

31400? 

000000 

000001 

776000 

1 

36020? 

777777 

776777 

003774 

2 

314000 

000000 

000001 

252524 

3 

337555 

777777 

377777 



pat control 

WORD 
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in th* example, test* 1 and 2 detaeted a ’’Plowed 
yd'* bit fn location 4000 of f T • I d li and tost l 
found a ’^popped’’ bit In location 0200 of flald 6, 
Test 3 caught a switched e o f • In location 7553 of 
f To I d 3, 


6,1,3 Printout* Inhibited’, Duping lono to»t runoi 
oxootslvo oppop printouts would uoo too much tin* 
and Dapep, To avoid this, the orogpam 

automatically sudppoosos toot data printouts aftop 
64 oppops', The mossaoo 

PRINTOUTS INHIBITED 

To typodf tHo pplntbwto w T 1 1 not bo postopod until 
tho ppogpam Is pestaptod at addposs 0200, 
Pplnteuts fop paloeatTon appors ape not affoetod. 


6,2 Othop oppopo 


6', 2,1 PPoopom polooatTon oppopo', As oppopo apo dotootod 
dUpTnd tho Pol'ooatJcn of tho progpam fpom ono flold 
to tho next, tho data aro ppTntod, Column hoads 
aPo tho same as fbP data Printouts, Example! 

TEST OCTAL ADR GOOD 8AD PAT CONTROL WORD 

031000 741000 740000 

031001 611005 601005 

031002 760027 760007 

NO MORE ERRORS 

Tho oppops occupPod whllo PolecatTno to field 03, 
If this happens during an automatic polecat!©*, tho 
ppoopam uT | | attempt to polecato to the next Iowop 
field* In this ease 02, continuing until an 
oppop'fpoo tpansfop Is obtained’, If tn# eppops 
oocup during a fopcod polocatlcn, the spoopo* will 
potupn to tho oontppl routine aftop the printout, 
and typo "GO To FIELD"i to reouest another 
destination, 
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6,2,2 Error In Seleeteo F T • | d If, In a forced 
relocation, the destination fTej'd had produced an 
error during the previous test run, the message 

ERROR IN SELECTED FIELQ 
GO TO FIELD 

Is orlnted, A new destination must be chosen, 


6,2,3 Address within program (Soopt loop request), If, 
In specifying I T m T 1 9 f«r a scoping loop, the 
operator tyoes an address that Is within the area 
eecuplsd by the program, the message 

FIRST Cor LAST] ADDRESS JS WITHIN PROGRAM 
PROGRAM IS IN field ff, 

Is tyosd, and the pposram repeats the reguest for 
whichever address Is at fault', 


7, RESTRICTIONS 


7,1 Hardware, The test will not operate 1" a °0P»15 

with less than 8K of eore memory, 


7', 2 Program, 


7,2,1 In selecting test limits (see Section 5,1,1), the 
operator should ngt specify more memory than Is 
actually avaTlaPle, The program wl | I behave 

unoredlctaply otherwise, 


7,2,2 During normal test execution, the console STOP 
switch should not 08 used te halt tha program for 
the purDOse of resetting AC switches', ACS ? and 1 
orovlds program-controlled ha|ts, 
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miscellaneous 


Execution time, 

All times irt approximate, 


950-nsae memory stack*, Tests 1 and 2 take 4,8 
aeoonds to complete cine 4 k f T • 1 d ", Test 3 reOuIree 
2 • 4 seconds oer field', 


800-n*ee stack, Tests 1 and 2 take 4 second* dip 
? T e id* Test 3 takes 2 seconds pep f T • I d * 


DESCRIPTION 


Tests 1 and 2 \ 

These tesfis ar* Identical except for the cattapn of 
l*s and 0/s stored Tn memory, 

The oplneleal' fault fcp which a eheckeppoapd 
oroorem teats Is that of a spurlou* "1" signal 
genepated as ths Peeult cf excessive ’’nojsew 
cuppent Tn a cops array sense winding, The noise 
Is a consequence cf the path which the sense wIps 
takes through the array', Eaeh time the sense wipe 
passes from a oops Tn the 2 state through one In 
the 1 state, and vice versa (that Is, each time 
there Is a change In the magnetic field), a small 
voltage Is Induced Tn the wife, If the combination 
o* these tiny oTts bf noise produces a voltage hlch 
enough to trigger the sense amplifier, a spurious 
" 1 " Is detected'. 

The checkerboard oatterh Is designed to produce the 
maximum number of 0«i and 1*0 Junctions In the 
sense wipers path, thus generating the greatest 
amount of noise current', This "worst-case*' pattern 
Is dl ff erent for oore arrays with different winding 
paths, In the PdP- 15, two different core staoks 
are used, requiring two worst-oase patterns, 
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The pattern of Test 1 provides a worst ease 
800-naee memory stack', It Is shown del 
would appear In one portion of one cor 
<641(6® sorts), The pattern shown 
thr’ouOhout the a r * a y 

y»ax|s 

1111111100000000. , 
niiiili00000000 
1111111100000000 
1111111100000000 
niiiiii00000000 
1111111100000000 
11U111100000000 
1111111100000000 
a-axls 0000000011111111', , 

0000000011111111 
0000000011111111 
0000000011111111 
0000000011111111 
0000000011111111 
00000000il|lllll 
0000000011111111 


In te^ns of co 
foil OWS j 

Addresses 


0003.0007 

0010*0017 

0023-0027 

* i i i • 

0070.0077 

0103-3107 

0113-0117 


e address, the 


Contents 


777777 

000000 

777777 

i • i i 

000030 

000000 


array would 
(octal ) 


for the 
w as 1 1 
ar ray 
repeats 


6e as 
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Beth testa proceed Tn this manner! The pattern Is 
written throughout the entire test are®, Then, 
starting with tha lowest address, each memory 
location Is ^tested In turn’, The oentents of the 
location are read Into the AC, comp Tenanted # and 
deposited In the test location, then read, 
r eoornP I emented , and deposited ones more, The 
contents are read once more and compared with a 
oontroi word! If any bits are In error# the 
Information Is printed# and the test proceeds to 
the neat I'ooatlon, If no error Is detected# the 
same location Is tested further by performing the 
come I ement-r eeomp foment operation on each bit of 
the contents^ In turn, starting with bit IT, As 
soon as an error Ts caught, the data are printed# 
and the test goes to the next location, 

When *11 i'oeatlons In the entire test area have 
been examined# the oomolement of the pattern Is 
written, and the test Is repeated*, 


9,2 Test 3 

This test wl|f catch switching failures In cores 
subjected to repeated ha|f-se|eet currents, 

Th e entire memory field Is filled with is, The 
contents of location 0000 are cleared te 0s» then 
read Into the AC 1024 times In rapid succession, 
The contents of every other register ha ! f -se I eeted 
by x*ax]s line 0 are then examined to see If any of 
the bits on that x*|!ne have switched from 1 to 0, 
in like manner, the remaining 63 x-axls lines are 
tested, The test Tf performed In each field In 
turn’, 



/ 

/POP ” ib extended memory checkerboard, 

/8K MINIMUM CORE REQUIRED! S.A, » 200, 

/ 

/COPYRIGHT 1972, DIGITAL EQUIPMENT CORP, 
/MAYNARD, MASS, 0J.75A 
/ 

/J, RICHARDSON 
/D. MACOMBER 
/J, M, GRAET2 
/ 



PAGE 2 

MX Cl 3 3 

MXC3.5B 




.title 

MXC15B 



, ABS 


?m\ 


.LOG 

\ 

00001 

600001 

/ 

JMP 

1 

00002 

mm 

LAW 

■1 

00003 

777777 

LAW 

-1 

22004 

777777 

LAW 

-1 

0200t> 

777777 

LAW 

•1 


700406 

f 

TlS*720406 



720401 

TSr«700401 



702301 

KSPs700301 



700312 

KRB=700312 



721000 

PAXs721020 



707764 

EBA*707764 



707762 

EPA*707762 



7Z7761 

SBA*707761 



707741 

EXUAS707741 



735000 

CL* 3 735000 



707702 

EEM»7Z7702 



707704 

LEM*707704 

/ 



EJECT 



page 


K X C 1 5 ti 


MXC1 5a 


_ £ 2 £ 3 



,LOC 

200 


20 20 0 

727762 

/ 

BEGIN 

EPA 


/ENTER PDP-15 mode 

30221 

143121 


DZM 

FLAGS 

/CLEAR PROGRAM FLAGS 

2-2222 

143176 


D2H 

P I NX 


20223 

100646 


JMS 

where 

/SEE WHERE PROGRAM IS 

22224 

043122 


D AC 

INSFLU 

/save fjeld no, 

22203 

101655 


JMS 

SLMTS 

/SETUP TEST LIMITS 

22206 

102010 


JMS 

SETAC 

/SETUP ACS 

20207 

777777 


LAW 

•1 

22210 

243170 


DAC 

BITSUH 

/MASK FOR BJT SUPPRESSION 

02211 

777700 


LAW 

•100 

20212 

243247 


DAC 

MAXERK 

/COUNT FOR TOTAL ERRORS 

22213 

777770 


LAW 

•10 

22214 

043117 


DAC 

s;xt4 

/PASS COUNTER 

00215 

143120 


OZM 

NOPRNT 


20216 

201620 

RTN1 

LAC 

G£TAD*1 


20217 

B41572 


DAC 

L0CAT*4 


22222 

707762 


EPA 



20221 

101566 


JMS 

LOCAT 

/TELL WHERE PROGRAM IS 

20222 

142616 


DZM 

PHDR 


20223 

203150 


LAC 

LAST1 

/FIRST FIELD TO TEST 

20224 

543147 


S AO 

FIRST! 

/LAST TO TEST 

20225 

741000 


SKP 



00226 

600231 


JMP 

,♦3 


20227 

543122 


SAD 

JNSFLD 

/jnsfld * field wjth program 

20232 

600202 


JMP 

BEG I N*2 

20231 

202674 


LAC 

ERTBL 

/ERROR TABLE POINTER 

20232 

343250 


DAC 

ERWRD 

00233 

777740 


LAW 

•40 


3e234 

043144 


DAC 

CT16 


20235 

760000 


LAW 



20236 

263250 


DAC* 

ERWRD 

/LAW > NO ERROR IN TABLE 

2e237 

443250 


ISZ 

ERWRD 

20242 

443144 


ISZ 

CT16 


20241 

600236 

J 

JMP 

,-3 


22242 

n43123 

/ 

DAC 

LAST 

/no error in last 

322«3 

100646 


JMS 

where 

30244 

043122 


DAC 

INSFLU 


3 2 245 

202674 


LAC 

ERTBL 

/ERROR TABLE POINTER 

33246 

243250 

/ 

DAC 

ERWRD 


EJECT 



paGl a M XC15b MXC15B 

/RETURN TO STOVER AFTER ANY ACS 


/ 


;• 22 «7 

7530J4 

stover 

LAS 


7 02 52 

503243 


AND 

K 1 7 7 

0 22 51 

243124 


DAC 

M C W A 

22252 

503211 


AND 

K 4 0 

22253 

744200 


SZAJCLL 

Z 2 2 5 4 

622307 


JMP 

FCQMV 

22255 

750004 


LAS 


22256 

503210 


AND 

K20 

2 2 2 5 7 

740200 


SZA 


0 0 2 6 2 

601034 


JMP 

KYBRD 

20261 

750004 


LAS 


00262 

503207 


and 

K10 

30263 

740200 


SZA 


22264 

101410 


JMS 

SUPBI T 

00265 

203124 


LAC 

MCWA 

2 0 2 6 6 

503240 


and 

K74K 

20267 

741200 


SNA 


22272 

600317 

J 

JMP 

OOALL 



r 

/EXAMINE 

y 

: TEST 

SWITCHES 

22271 

203124 

EXTST 

LAC 

MCWA 

2 2272 

523236 


AND 

K40K 

2 2 2 7 3 

740200 


SZA 


20274 

600322 


JMP 

TST1 

20275 

203235 

EXAM2 

LAC 

K2ZK 

20276 

503124 


AND 

MCWA 

20277 

740200 


SZA 


20 30 0 

600336 


JMP 

TST2 

20301 

203233 

EXAM3 

LAC 

K10K 

20322 

503124 


AND 

MCWA 

223 0 3 

740200 


SZA 


2 0304 

600353 


JMP 

TST3 

20305 

443117 

EXREl 

ISH 

S J X T 4 

2 0 3 0 6 

600312 


JMP 

1 * 4 

20327 

143120 


OHM 

NOPRNT 

20312 

777770 


LAW 

"10 

20311 

043117 


DAC 

S I X T 4 

20312 

750004 


LAS 


2 2 3 1 3 

503227 


and 

K 4 0 0 

20314 

740200 


SZA 


2 0 315 

600216 


JMP 

KTN1 

20316 

602125 


JMP 

CMQVL 


/ 




/SETUP 

J 

TO RUN 

ALL TESTS 

2 0 31/ 

203124 

r 

DOALl 

L A C 

M C W A 

2 0322 

243240 


XOR 

^ / 4 K 

2 0 321 

243124 


DAC 

y C W A 


/ 

.EJECT 


changes while punning 
/read test parameters 

/BIT 12 A l r FORCE RELOCATE 

/relocate 


/BIT 13 A i s KEYBOARD INPUT 

/wait for input 


/BIT 14 A 1 9 BIT SUPPRESSION 
/PARAMETERS 

/mask bits 3 to 6 
/ALL 0 * DO all tests 


/BIT 3 A 1 ■ TEST 1 


/BIT 4 A 1 • TEST 2 

/BIT 5 A 1 ■ TEST 3 

/ 6 a passes jf skip 

/CLEAR NO PRINT FLAG 
/RESTORE COUNT 

/BIT 9 A 1 ■ DON'T MOVE 

/DONE All TESTS, SETUP 
/FOR RELOCATION 

/SET ALL TEST BITS 

/restore 



pace 


5 

v X C 1 5 B 

MXC15B 







/TEST 

f 

1, WRITE 

CHECKEW 

pattern 

#11 SLOW MEMORY worst case 

00322 

223127 

TST1 

LAC 

PCWA 


/TEST 1 PAT, CONTROL WORD 

02323 

243125 


DAC 

pgw 



2Z32< 

043126 


DAC 

CNTRL 



22325 

760261 


LAW 

261 


/ASCII 1 

00326 

343136 


DAC 

TNUM 


/test number 

20327 

203236 


LAC 

K 7 


/SLOW MEMORY WORST-CASE CONSTANTS 

00332 

043232 


DAC 

XMSK 



00331 

143223 


DEM 

XCOM 



20332 

100357 


JMS 

NETWK 


/GO WRITE IN ALL FIELDS 

20333 

122366 


JMS 

CREAO 


/NOW GO READ AND TEST 

00334 

600275 


JMP 

EXAM2 


/SEE IF TEST 2 WANTED 

20335 

603332 

y 

JMP 

i *3 


/DO complement 



/TEST 

2, WRITE 

CHECKER 

PATTERN 

#2l fast memory worst-case 

00336 

223130 

f 

TST2 

LAC 

PCWB 


/TEST 2 PAT, CONTROL WORD 

30337 

243125 


DAC 

PCW 



20342 

043126 


DAC 

CNTRL 



00341 

760262 


LAW 

262 


/ASCII 2 

00342 

243136 


DAC 

TNUM 


/TEST NUMBER 

30343 

203212 


lac 

K77 



00344 

343202 


DAC 

XMSK 



30345 

203211 


LAC 

K40 


/COMPLEMENT EVERY 40 ( 8 ) X*L I NES 

00346 

043203 


DAC 

XCQM 



20347 

120357 


JMS 

NETWK 


/WRITE IN ALL FIELDS 

00352 

100366 


JMS 

CREAD 


/READ AND TEST EACH FjELD 

00351 

600301 


JMP 

EXAM3 


/SEE IF TEST 3 WANTED 

00352 

600347 


JMP 

i -3 


/DO complement 



f 

/TEST 

/ 

3, TEST 

ALL XY COORDINATES 

00353 

762263 

TST3 

LAW 

263 


/ASCII 4 

00354 

043136 


DAC 

TNUM 


/test number 

2 0355 

120524 


JMS 

BURST 


/WRITE IN all FIELDS 

23356 

620305 


JMP 

exrel 


/prepare TO RELOCATE 


/ 


EJECT 



PAGE. 6 

M X C 1 5 d 

MXC15B 







/ROUTINE 

TO 

SETUP ADDRESSES 

FOR 

WRITE LOOP 

20357 

020000 

/ 

NETWK 

0 




: 2 3 6 z 

102624 


JMS 

SETU1 


/SETUP 1ST FIELD TO T£ST 

23361 

120613 


JMS 

CBANK 


/SEE IF IT HAS PROGRAM 

2 1 3 6 2 

741200 


SKP 



/NO 

20363 

622357 


JMP* 

NETWK 


/EXIT 

22364 

100417 


JMS 

WRITE 


/ACTUALLY WRITE ONE F J ELD 

20365 

600637 

J 

JMP 

nxtbnk 


/SETUP FOR NEXT FJELD 



f 

/ROUTINE 

TO 

SETUP ADDRESSES 

FOR 

READ LOOP 

20365 

200020 

CREAD 

0 




30367 

100424 


JMS 

HEAD 


/ACTUALLY READ AND TEST 1 FJElD 

30373 

777774 


LAW 

• 4 



2 0 3 71 

243125 


XOR 

PCW 


/ac»complement oe pcw 

2?, 372 

543126 


SAD 

CNTRL 


/ALL DONE IF EQUAL 

0 0 3 7 3 

622366 


JMP* 

CREAD 


/EXIT 

20374 

043126 


DAC 

CNTRL 


/cntrlpcomplement pattern 

32375 

440366 


ISZ 

CREAD 


/RETURN+1 

30376 

620366 


JMP* 

CHEAP 


/EXIT AND WRITE COMPLEMENT 


/ 

/PATTERN ROUTINE FOR TESTS 1 THRU 3 


20377 

220020 

/ 

genpat 

0 



22400 

223126 


LAC 

CNTRL 

/current pattern control word 

20401 

343135 


DAC 

PATN 

/SAVE 

20402 

777722 


LAW 

-100 


20403 

043146 


DAC 

CT04 

/COUNTS Y AXIS 

20404 

223135 


LAC 

PATN 

/CONTROL WORD 

20405 

243132 


DAC 

PATR 

/save 

30406 

777760 

wCNT 

LAW 

-20 


2 0 4 0 7 

343144 


DAC 

CT16 

/COUNTS 16 SHIFTS 

20413 

223132 


LAC 

PATR 


2 24 11 

744212 


RCL 



2 0-412 

043132 


DAC 

PATR 


20413 

751422 


SHL I CL A 


/NO SKIP SAYS WRITE 777777 

3 2 4 1 4 

743231 

COMPL 

CM A 


/AC * 7777 

2 0 4 15 

343153 


0 A C 

G0QD1 

/SAVE 

3 2 416 

623377 

/ 

JMP* 

GENPAT 

/EXIT TO READ OR WRITE 



/ 

/WRITE 

routine 

for tests 

1 THRU 3 

< 2 417 

3 32 2 7 

*RITE 

0 



3 0 4 2 2 

103377 


JMS 

GENPAT 

/GET A WORD 

2 0 4 21 

353223 


DAC 

X 

/WRITE 

3 0 4 2 2 

1 3 2 4 7 i 


JMS 

CKXY 

/CHECK FOR PATTERN INVERSION 

3 2 4 2 3 

627417 


JMP* 

WRITE 

/DONE 4k 




.EJECT 





PAGE 


1 MXC158 MXC158 

/ 


/READ AND TEST ROUTINE FOR TESTS i THRU 3 
/ 


20424 

.,00000 

READ 

z 



20425 

100604 


JM S 

SETU1 

/SETUP FOR FIRST FIELD 

20426 

100613 


JMS 

CBANK 

/SEE IF IT HAS PROGRAM 

00427 

741000 


SKP 


/NO 

20430 

620424 


JMP* 

HEAD 

/NO more core to READ 

00431 

100377 


UMS 

GENPAT 

/GET A WORD 

00432 

210000 


LAC 

X 

/test full-word complement 

20433 

740201 


CmA 



2 0 4 3 4 

050000 


DAC 

X 


00435 

210003 


LAC 

X 


00436 

740001 


CMA 


/recomplement 

00437 

O50000 


DAC 

X 


00440 

210000 


LAC 

X 

/READ 

0 04 41 

543153 


SAD 

G0QD1 

/IS WORD OK? 

20442 

741000 


SKP 


/YES, GO ON TO BITWISE TEST, 

00443 

600466 


JMP 

ERSET 

/NO, 

00444 

203204 


LAC 

<1 


00445 

043137 


DAC 

SITCON 

/USED FOR BIT INVERSION 

00446 

203137 

RCQM 

LAC 

BJTCON 


00447 

250000 


XOR 

X 

/complement a bit 

00450 

053000 


DAC 

X 

/WRITE 

00451 

203137 


LAC 

BITCON 


00452 

250000 


XOR 

X 

/re-complement 

00453 

C5000E 


DAC 

X 

/RE-WRITE 

00454 

210000 


LAC 

X 

/ read 

00455 

543153 


SAD 

G00D1 

/compare 

00456 

741000 


SKP 


/OK 

00457 

600466 


JMP 

ERSET 

/PRINT INFO 

30460 

203137 


LAC 

BjTCON 


00461 

744010 


PCL 


/SETUP FOR NEXT BIT 

00462 

740400 


SNL 


/DONE 18 IF LINK ■ 1 

20463 

600445 


UMP 

RCOM-1 

/DO NEXT BIT POSITION 

2 0 4 6 4 

100471 

CKAL 

UMS 

CKXY 

/CHECK FOR PATTERN INVERSION 

00465 

600637 


JMP 

NXTBNK 

/SETUP FOR NEXT FIELD 

2 0 4 6 6 

343151 

ERSET 

DAC 

B ADI 


20467 

100666 


JM$ 

ERROR 

/PRINT INFO 

0 0 4 7 3 

600464 

y 

JMP 

CKAL 





•EJECT 





pa GL e MXCIPO MXC15B 

/ 

/ROUTINE TO CHECK FOR PATTERN) 
/ 


3 3 a 7 i 

2 2* 3 

ckxy 

0 


0 0472 

443143 


I S 2 

UT4K 

3 0473 

741333 


SKP 


3 2 4 7 4 

622471 


JMP* 

CKXY 

1/2475 

443146 


IS2 

CT04 

2 3476 

741023 


SKP 


33477 

630526 


JMP 

Y 6 4 

23522 

724323 


P X A 


22521 

343213 

N64 

TAD 

K100 

23522 

721302 


PAX 


2252 3 

443144 


IS2 

CT16 

2 2 5 2 4 

633413 


JMP 

WCNT+2 

2 2 5 3 5 

500424 


JMP 

WCNT-2 

33526 

737021 

/ 

Y 6 4 

AXR*1 


33527 

777700 


LAW 

•100 

2 251 2 

34314ft 


DAC 

CT04 

23511 

724000 


PXA 


2 2 512 

523232 


and 

XMSK 

22513 

543223 


SAD 

XCOM 

23514 

60052? 


JMP 

• * 4 

2 2 515 

724002 


PXA 


2 3516 

343311 


tad 

(770000 

22517 

633521 


JMP 

N64 

22523 

203135 


LAC 

PATN 

22521 

740321 


CM A 


23522 

343135 


DAC 

PATN 

33523 

600515 


JMP 

i »6 


/ 


.EJECT 


INVERSION 


/DONE 4K IF SKIP 

/exit to write or read 

/DONE WITH V AXIS IF SKP 

/DONE 64 Y LINES 

/INCREMENT y address BY 1 

/CHECK FOR 16 LOCATIONS 
/NOT YEt 

/restore count 

/INCREMENT X LINE BY 1 
/RESTORE Y LINE COUNTER 

/COMPLEMENT PATTERN IF EQUAL 

/START WITH NEW X-Y COMBO 
/PATTERN CONTROL WORD 

/COMPLEMENTED CONTROL WORD 



p AGE. 


9 

MXC15B 

MXC15B 






/TEST 

i 

3 WRITE 

and read routine 


3 0 5 2 4 

300003 

/ 

bUHST 

0 



30525 

133604 


JMS 

SETU1 

/SETUP FOR FIRST FIELD 

32526 

102613 


JMS 

cbank 

/see if it has program 

00527 

741002 


SKP 


/NO 

22533 

602537 


JMP 

DQXY 

/READ XY COORDINATES 

32531 

777777 

HONS 

LAW 

•1 


20532 

373201 


D AC* 

MEMADR, X 

/WRITE 1 • S INTO ALL FIELDS 

00533 

443201 


IS2 

MEMADR 

/ADDRESS*l 

00534 

443143 


IS? 

CT4K 

/DONE 4K WHEN SKIP 

00535 

600531 


JMP 

WONS 


00536 

6S0637 


JMP 

NXTBNK 

/SETUP FOR NEXT FIELD 

00537 

100604 

DOXY 

JMS 

SETUl 

/SETUP FOR FIRST FIELD 

00540 

100613 


JMS 

CBANK 

/see if it has program 

00541 

741000 


SKP 


/NO 

00542 

620524 


JMP* 

BURST 

/EXIT 

00543 

203201 


LAC 

MEMADR 

/address 0 OF field X 

00544 

343213 


TAD 

K100 

/ADD Y LINE 01 TO IT 

00545 

043132 


0 AC 

PATR 

/ SAVE 

00546 

203132 

8RSTA 

LAC 

PATR 


00547 

043143 


DAC 

CT4k 

/Y LINE ADDRESS 

20550 

776000 


LAW 

•2000 

/•1B24 DECIMAL 

20551 

043144 


DAC 

CT16 


00552 

173201 


02M* 

MEMADR, X 

/CLEAR LINE XN 

20553 

233201 


LAC* 

MEMADR, X 

/READ 000000 1024 TIMES TO 






/TRY TO SWITCH OTHER LINES 

20554 

443144 


IS? 

CT16 


00555 

622553 


JMP 

i "2 


20556 

777777 

BUST 

LAW 

• 1 


00557 

273143 


XOR* 

CT 4K , X 

/LINE Y * X MUST * 777777 

00560 

741200 


SNA 


/SHOULD NOT SKIP 

20561 

600567 


JMP 

CEND 

/OK 

00562 

740001 


CM A 



22563 

243151 


DAC 

BAOl 

/save Bad data 

20564 

222556 


LAC 

BUST 


00565 

343153 


DAC 

GOQD1 

/SAVE GOOD DATA 

30566 

100666 


JMS 

ERROR 

/PRINT INFO 

20567 

203213 

CEND 

LAC 

K 1 0 0 


30570 

343143 


TAD 

CT4K 

/Y AXJS PLUS 1 

30571 

343143 


DAC 

CT4K 


20572 

503231 


ANO 

K7700 

/MASK y address 

2 0 5 7 3 

742202 


SEA 


/ALL done if SKIP 

20574 

600556 


JMP 

BUST 

/READ NEXT Y ON CURRENT X 

20575 

443201 


ISZ 

MEMADR 

/INCREMENT X ADDRESS 

2 0576 

443132 


I s z 

PATR 

/INCREMENT X*Y ADDRESS 

00577 

203212 


LAC 

K 7 7 


2 0 6 02 

523221 


AND 

MEMADR 


7 2 6 01 

742202 


SEA 


/DONE 64 X LINES IF 0 

C0602 

62054ft 


JMP 

BRSTA 

/TEST NEW X WITH Y01 TO Y63 

.’0623 

602637 

/ 

JMP 

NXTBNK 

/SETUP FOR NEXT FIELD 



/ 

.EJECT 





Pa: 


- - 

M X C 1 5 b 

MXC15B 






/ 

/SETUP 

FOR FIRST 

4 K FIELD 


006 04 

0Z0200 

SETU1 

0 



CZ6Z5 

233147 


LAC 

fjrsti 

/FIRST TO TEST 

22626 

721000 


PAX 


/address counter 

2 0607 

043140 


DAC 

SVADR 


l Z 6 1 ? 

77Z00Z 


LAW 

•10000 


22611 

243143 


DAC 

CT4K 

/4K COUNTER 

02612 

620604 


JMP* 

SETU1 

/EXIT 


/ 

/ROUTINE TO SEE IF TESTED F 1 ELD HAS PROGRAM 


22613 

U000Z0 

/ 

CBANK 

0 



22614 

120646 


JMS 

where 

/CURRENT PROGRAM FIELD 

22615 

722000 


PAL 



0 2 616 

543140 


SAD 

SVADR 

/next to test 

32617 

620637 


JMP 

NXTBNK 

/SEE JF CURRENT IS LAST 

0 2 6 2 2 

740031 


CM A ! I AC 


20621 

343140 


TAD 

SVADR 


22622 

721000 


PAX 



2Z623 

730000 


pla 



22624 

043201 


DAC 

memadr 


20625 

620613 


JMP® 

CBANK 

/EXIT 

32626 

440613 

NOMOR 

ISZ 

CBANK 

/return *1 

22627 

620613 


JMP • 

CBANK 


4 06 3 2 

223140 


LAC 

SVADR 


00631 

343233 


TAD 

K10K 

/CURRENT *4K 

20632 

043140 


DAC 

SVAQR 

/NEW FIELD 

22633 

721000 


PAX 



Z0634 

770000 


LAW 

•10000 

/•4K 

22635 

243143 


DAC 

CT4K 

/4K COUNTER 

2 0 6 3 6 

620614 


JMP 

CBANK*1 

/exit and test new field 



j 

/ROUTINE 

: to 

CHECK FOR LAST 

FIELD 

22637 

750004 

f 

nxtbnk 

LAS 


/CHECK ACS0 FOR HALT 

22642 

741100 


SPA 



2 2 6 < 1 

100653 


JMS 

halt 

/GO HALT 

.26*2 

223140 


LAC 

SVADR 


22643 

543152 


SAD 

LAST! 

/ALL DONE IF EQUAL 

2 2 6 4 4 

600626 


JMP 

nomor 


2 0 6*5 

600630 


JMP 

NQMOR+2 




/ROUTINE 

TO 

determine where 

program is 

2 2 6 A 0 

0 ? 000 0 

/ 

• HERE 

0 


/contains epc 

2 0 6 4 7 

220646 


LAC 

1*1 


2 0 65 : 

503237 


AND 

K70K 

/CLEAR ALL BUT BITS 3,4, 

2 2 6 51 

2431/6 


XOR 

PINX 


20 650 

620646 

/ 

JMP® 

WHERE 

/EXIT 


.EJECT 



page; 11 

MXC15S 

WXC150 






/halt 

ROUTINE, 

PRESS CONTINUE TO RESUME 



/TLSTJNGi or if 

ACS changes, 

TO EXECUTE 



/NU PARAMETERS, 



00653 

300022 

f 

halt 

0 



20654 

740040 


hlt 


/PRESS CONTINUE 

SkJ 655 

750034 


LAS 



3Z656 

740010 


RAL 



Z0657 

741100 


SPA 



'2066k? 

620653 


JMP* 

HALT 


2Z661 

740020 


RAR 



03662 

503.243 


AND 

K177 


20663 

543124 


sad 

MOW A 


02664 

620653 


jmp* 

HALT 

/resume where left off 

0066b 

600247 


JMP 

STOVER 

/EXECUTE NEW PARAMETERS 



f 

/error 

PRINT-OUT 

ROUTINE, PLACE ACS0 UP FOR 



/HALT 

AFTER PRINT-OUT, PRESS 

CONTINUE TO SO ON, 

00666 

000000 

f 

ERROR 

0 



00667 

724000 


PXA 


/SAVE Bad DATA 

20670 

503232 


AND 

K7777 


00671 

243140 


XQR 

SVADR 


00672 

043152 


D AC 

OCAOR 

/save failing address 

30673 

203250 


LAC 

ERWRD 

/ERROR TABLE POINTER 

30674 

542675 


SAD 

enerr 

/L a ST ADDRESS OF TABLE 

30675 

741000 


SKP 



00676 

600702 


JMP 

• *A 


30677 

202674 


LAC 

ERTBL 

/FIRST ADDRESS OF TABLE 

20700 

043250 


DAC 

ERWRD 

/PUT POINTER TO TOP OF TABLE 

00701 

600711 


JMP 

SW2 

/CHECK AC2 FOR BELL 

00702 

203152 


LAC 

OCAOR 

/FAILING ADDRESS 

32703 

503244 


ANO 

K370K 

/MASK 3, 4 AND 5 

20704 

543123 


SAD 

LAST 

/NEW ERROR FIELD IF SKIP 

30705 

600711 


JMP 

» *4 

/SAME FIELD AS LAST ERROR 

20706 

043123 


0 AC 

LAST 


30707 

063250 


DAC* 

ERWRD 

/STORE FIELD# IN TABLE 

20710 

443250 

/ 

IS? 

ERWRD 

/INCREMENT POINTER 




.eject 





13 AGE 12 MXC15B MXC15B 


3 2 711 

760022 

SW2 

LAW 


/PRINT INHIBIT IF 

s LAW 

22712 

543120 


SAD 

NQPRNT 



2271 i 

622666 


JMP« 

ERROR" 

/DON'T PRJNT 


3 2 714 

753004 


LAS 




32715 

742010 


RTL 




22716 

743100 


SMA 


/BELL IF SKJP 


0 0 717 

622723 


JMP 

SHI 

/CHECK ACS 1 


3 2 7 22 

760207 


LAW 

207 

/ASCII BELL 


22721 

102027 


JMS 

PCHAR 

/PRINT 


30722 

603731 


JMP 

SW0 

/CHECK ACS 0 FOR 

halt 

3 2 7 2 3 

750204 

SW1 

las 




00724 

740010 


RAL 




20725 

740102 


SMA 


/NO SKIP « PRINT 

INFO 

20726 

603735 


JMP 

QOERR 

/PRINT 


22727 

100653 


JMS 

halt 

/halt 


20733 

620735 


JMP 

qqerr 

/PRINT INFO 


20731 

750004 

SW0 

las 




22732 

741100 


SPA 


/NO SKIP b HALT 


22733 

100653 


JMS 

halt 



02734 

620666 


- JMP* 

ERROR 

/RETURN TO READ ROUTINE 


/ 


.EJECT 



E 13 MXC15B MXC15B 

/SETUP TO PRINT £HROR 


/ 


2 0 7 3 3 

203151 

DOERR 

LAC 

3A01 

/BAD DATA 

02735 

741200 


SNA 



22737 

600752 


JMP 

STER-6 

/FULL WORD ERROR 

2274? 

740001 


CMA 



22741 

741200 


SNA 



32742 

600752 


JMP 

STER-6 

/FULL W 0R0 ERROR 

22743 

740001 


CMA 


32744 

503170 


AND 

8ITSUP 

/mask suppressed bits 

22745 

740200 


SZA 


22746 

740001 


CMA 



32747 

503170 


AND 

SJTSUP 


Ze750 

741200 


SNA 


/new error JF SKIP 

32751 

620666 


JMP« 

error 

/ERROR is SUPPRESSED 

22752 

202616 


LAC 

PHDR 


22753 

741200 


SNA 


/PRINT HEADER IF 0 

22754 

102616 


JMS 

PHDR 

22755 

203136 


LAC 

tnum 

/ASCII TEST NUMBER 

22756 

102027 


JMS 

PCHAR 

/PRINT TEST NO, 

22757 

777767 


law 

•11 

/•» 

22762 

043142 

STER 

DAC 

CT32 

/used for spacing count 

32761 

102101 


JMS 

SPJNG 

/SPACE 9 

22762 

203152 


LAC 

OCADR 

/OCTAL ADDRESS 

32763 

042072 


DAC 

crlf 

/save temporarily 

02764 

102107 


JMS 

PROCTl 

/PRINT FAILING ADDRESS 

22765 

777772 


LAW 

• 6 

00766 

043142 


DAC 

C?32 


22767 

102101 


JMS 

S*ING 

/SPACE 7 

20773 

203153 


LAC 

G00D1 

/what data should be 

00771 

042072 


DAC 

CRLF 

00772 

102107 


JMS 

proctl 

/PRINT THE GOOD 

30773 

777776 


LAW 

-2 


32774 

043142 


DAC 

CT32 


30775 

102101 


JMS 

SPJNG 

/SPACE 5 

0 0776 

203151 


LAC 

BAOl 

/data read 

32777 

242072 


DAC 

crlf 

/save 

01000 

102107 


JMS 

proctl 

/PRINT THE BAD 

C1001 

760264 


LAW 

264 


01302 

543136 


SAD 

TNJM 


010 23 

601012 


JMP 

JNDY*4 




page 


1 4 

m XC 1 58 

MXC158 




n?z4 

77777 3 


LAW 

■ 5 


1 / 2 3 

243142 


DAC 

CT32 


r i z z 3 

102121 

JNUY 

JMS 

SPJNG 

/SPACE 5 

>. 1 1 Z 7 

223126 


LAC 

CNTRL 

/CURRENT CONTROL WORD 

Z 1 2 1 0 

242072 


DAC 

• crlf 

/SAVE 

Z- 1 Z 1 1 

102107 


JHS 

prqctl 

/PRINT PATTERN CONTROL WORD 

?1Z12 

102072 


JMS 

CRLF 

/CR. LF 

01013 

443247 


ISZ 

MAXERR 

/CHECK FOR MAX, PRINT.OUTS 

Z1Z14 

620731 


JMP 

S W0 

/CHECK ACS 0 

Z1Z13 

777700 


LAW 

•100 

/«64 DECIMAL 

Z 1 c 1 6 

243247 


DAC 

maxerh 

Z 1 1 1 7 

760000 


LAW 



? 1 Z c Z 

243120 


DAC 

NQPRNT 

/NO MORE error print-outs 
/UNTIL restart from 100 

31021 

202676 


LAC 

PTC 


01022 

243154 


DAC 

PRNT 


212 2 3 

102034 


jmS 

PNXT 

/PRJNT-OUTS INHIBITED 

Z 1 C 2 4 

102072 


JMS 

crlf 

/CR • LF 

21223 

777766 


LAW 

•12 

2-10 DECIMAL 

21226 

043142 


DAC 

CT32 

21227 

760212 


LAW 

212 

/LF 

21232 

102027 


JMS 

PCHAR 


21231 

443142 


JSH 

CT32 

/10 LINE feeds 

21 232 

601027 


JMP 

. »3 

21233 

600731 

/ 

JMP 

SW0 



.EJECT 



°AGE 1!? 


MXC15B 


MXC15B 


/ 

/KEYBOARD input routines 
/ 


2123« 

735000 

KYBRO 

cl* 




/ 

/TYPE TEST# 

AND WAIT FI 



/RETURN 

ONLY 

MEANS USE 


202653 

TSTNO 

LAC 

TSNX 

01035 

043154 


DAC 

PRNT 

2 1237 

102072 


JMS 

crlf 

2 

102034 


JMS 

PNXT 

21241 

121544 


JMS 

KEYIN 

01242 

543226 


SAD 

K377 

212 4 3 

601034 


JMP 

KYBRD 

21244 

543216 


SAD 

K215 

01245 

101067 


JMS 

AOR1 

21246 

777517 


LAW 

•261 

21247 

343142 


TAD 

CT32 

21250 

740100 


SMA 


01251 

601054 


JMP 

.*3 

21252 

102607 


JMS 

HOT I S 

01253 

601035 


JMP 

TSTNO 

01054 

203142 


LAC 

CT32 

21255 

740001 


CM A 


31256 

343204 


TAD 

K1 

31257 

343221 


TAO 

K263 

21060 

740100 


SMA 


21061 

601064 


JMP 

■ * 3 

21062 

102607 


JMS 

WOT I S 

21063 

601035 


JMP 

TSTNO 

01264 

760000 

TSTN 

LAW 


31265 

243142 


XOR 

CT32 

21066 

343136 


DAC 

tnum 


/ 

.EJECT 


INPUT, CARRIAGE 

ST pattern written 

/POINTER FOR TEST# 

/CR* \.F 

/PRINT TEST# 

/wait FOR input 
/start over if A rub-out 

/CHECK FOR C.R. 

/USE LAST PATTERN WRITTEN 
/-l ASCII 

/MINUS t INPUT <1 

/PRINT query and RESTART 

/TEST# IN ASCII 


/SUBTRACT ASCII 3 
/MINUS ■ TEST# >3 

/PRINT QUERY AND RESTART 


/new test number 



pa r.t 


I A 

Mxcisb 

MXC15B 






/XCH15 

- TAPE 2 





/ 

/WAIT 

for first 

6 DIGIT 

ADDRESS TO LOOP ON 

Z 1 £ 6 7 

2B2730 

ADH1 

lac 

RQTB 

/POINTER FOR LAW-XX 

3 1 ? 7 0 

042677 


O AC 

ROTA 


312 71 

222677 


LAC* 

ROTA 


21272 

043162 


0 AC 

NRQT A 

/left shift counter 

2 10 7 3 

760030 


LAW 



310 7 4 

043160 


DAC 

AQRA 


Cl? 7 5 

143155 


OHM 

ADRCW 

/saves partial address 

01076 

102072 


JMS 

crlf 

/cr, lp 

21077 

202654 


LAC 

A Q R X 

/POINTER FOR FIRST ADR, 

21102 

343154 


DAC 

PRNT 


21101 

102034 


JMS 

PNXT 

/PRINT FIRST ADR, 

21102 

202655 


LAC 

AD1R 

/C(ADIR) « ADR1 

21103 

043157 


DAC 

OVER 


21104 

202656 


LAC 

DQN1 

/SIDONl) ■ DFST 

0110 5 

343156 


DAC 

EXIT 


31106 

101544 

fadr 

JMS 

KEYIN 

/wait for input 

21107 

101553 


JMS 

LEGAL 

/SEE JF VALID 

01110 

203142 


LAC 

CT 32 

/ASCII INPUT 

21111 

503206 


and 

K 7 


21112 

343142 


DAC 

CT 32 


21113 

101621 


JMS 

GETAO 

/SHIFT LEFT TO FROM ADDRESS 

21114 

601106 


JMP 

FADR 

/get next digit 

01115 

203155 


LAC 

ADRCW 


01116 

043160 


DAC 

ADRA 


21117 

202700 

DFST 

LAC 

RQTB 

/POINTER for law table 

01120 

542677 


SAD 

ROTA 

/not EQUAL 8 <6 CHARACTERS 

21121 

601124 


JMP 

,*3 

/ 0 i K , 

31122 

4 2 6 7 7 


DAC 

ROTA 


21123 

601564 


JMP 

QUERY 

/PRINT QUERY AND RESTART 

21124 

101373 


JMS 

PROG 

/NOW SEE IF 1ST ADR, IS 
/IN SAME 4K AS PROGRAM 

2112 5 

601143 


JMP 

AQR2 

/OK 

21126 

102072 


JMS 

CRLF 

/CR # LF 

3112 7 

202664 


LAC 

AQR1P 


3113 2 

'431S4 


DAC 

PRNT 


3 1131 

102034 


JMS 

PNXT 

/PHJNT "FIRST" 

2 113 2 

202666 


LAC 

OVRLP 


21133 

243154 


DAC 

PRNT 


.113 4 

102034 


JmS 

PNXT 

/PRINT "ADR, IS WITHIN PROGRAM 

21135 

760000 


law 


21136 

341572 


DAC 

LOCATT4 


21137 

121566 


JMS 

LOCAT 

/tell where program is 

3114 0 

201620 


LAC 

GE T AD-1 


2114 1 

241572 


DAC 

L DC A T * 4 


■1142 

621067 

/ 

JMP 

ADR 1 

/start over 


, EJECT 



page 17 

KXC15B 

MXC15B 






/ 

/WAIT 

TOR LAST 

6 DIGIT ADDRESS 

or block 

21143 

763000 

/ 

A0R2 

law 



311 44 

'•43161 


DAC 

AORB 


31145 

143155 


02M 

AQRCW 


01146 

222677 


LAC» 

ROTA 


01147 

243162 


DAC 

nrota 

/FIRST COUNT FOR lEP t SHIFT 

01150 

102072 


JMS 

crlf 

/CR» LF 

^1151 

202657 


LAC 

ADXR 

/POINTER FOR LAST ADR, 

01162 

043154 


DAC 

PRNT 


31153 

102034 


JMS 

PNXT 

/PRINT LAST ADR, 

31154 

202660 


LAC 

AQ2R 

/CUD2R) * ADR2 

01155 

043157 


DAC 

OVER 


01156 

202661 


LAC 

D0N2 

/C < DONS } « DLST 

31157 

343156 


DAC 

EXIT 


31163 

101544 

IAQR 

JMS 

KEYJN 

/wait for input 

21161 

101553 


JMS 

LEGAL 

/SEE JF VALID 

31162 

203142 


LAC 

C T 32 

/ASCII INPUT 

01163 

503206 


and 

K7 


01164 

043142 


DAC 

cf 32 


01163 

101621 


JMS 

cetad 

/SHIFT LEFT TO FORM ADDRESS 

01166 

601160 


JMP 

LAOR 

/GET NEXT DIGIT 

01167 

203155 


LAC 

AQRCW 


31170 

043161 


DAC 

AORB 


21171 

202700 

DLST 

LAC 

ROTB 


31172 

542677 


SAD 

rota 

/NOT EQUAL » <6 CHARACTERS 

31173 

601176 


JMP 

1 *3 

/O.K, 

01174 

342677 


□ AC 

ROTA 


01175 

601564 


JMP 

QUERY 

/PRINT QUERY AND RESTART 

01176 

101373 


JMS 

PROG 

/SEE IF LAST ADDRESS IS IN 






/SAME 4k AS PROGRAM 

31177 

601215 


JMP 

STLP 

/O.K, 

21200 

102072 


JMS 

CRLP 

/C«i LF 

31201 

202665 


LAC 

A0R2P 


31202 

343154 


DAC 

PRNT 


31203 

102034 


JMS 

PNXT 

/PRINT ’'LAST” 

31204 

202666 


LAC 

OVRLP 


21205 

043154 


DAC 

PRNT 


31206 

102034 


JMS 

PNXT 

/PRINT "ADR,. IS WITHIN PROGRAM 

31227 

760033 


LAW 



21210 

341572 


DAC 

LOCATE 


21211 

131566 


JMS 

LOCAT 

/TELL WHERE PROGRAM IS 

21212 

231623 


lac 

getad-i 


31213 

-■41572 


DAC 

L0CAT*4 


31214 

631143 

/ 

JMP 

A0R2 

/start over 


• EJECT 



P AGE 16 


MXC15B 


mxc;5b 


/ 

/SETUP ADDRESSES ano patterns 
/ 


01215 

760030 

STLP 

U A W 


01216 

543160 


SAD 

AQRA 

81217 

7 4 1 0 U £ 


SKP 


£122 3 

601227 


JMP 

CKLST 

01221 

543161 


SAD 

ADRB 

21222 

6&0216 


JMP 

RTN1 

21223 

203161 


LAC 

ADRB 

21224 

& 4 3 1 6 3 


DAC 

AQRA 

21225 

043163 


DAC 

LTST 

012 26 

601271 


JMP 

S I MU 

21227 

543161 

j 

CKLST 

SAD 

AQRB 

21233 

7410W0 


SKP 


21231 

601236 


JMP 

CBOTH 

21232 

203163 


LAC 

ADRA 

21233 

^43161 


DAC 

AQRB 

21234 

043163 


DAC 

LTST 

21235 

601271 


JMP 

s i MU 

21236 

203160 

CBQTH 

LAC 

AQRA 

31237 

503237 


AND 

K70K 

212 4 3 

043142 


DAC 

CT32 

31241 

203161 


LAC 

AQRB 

212 4 2 

503237 


AND 

K70K 

31243 

543142 


SAD 

C T 32 

31244 

601247 


JMP 


01245 

102637 


jms 

WOT I S 

01246 

601067 


JMP 

AQR 1 

21247 

203160 

/ 

LAC 

AQRA 

31252 

7400 J 1 


DMA 


01251 

343204 


TAD 

K 1 

21252 

343161 


TAD 

AQRB 

01253 

740100 


sma 


.1254 

601265 


JMP 

S JMU-4 

01255 

203161 


LAC 

AQRB 

312 5 6 

042072 


DAC 

CRLF 

012 5 7 

223160 


L AC 

AORA 

31260 

.43161 


DAC 

AqRB 

3 12 61 

.43163 


DAC 

LTST 

21262 

202072 


LAC 

CRLF 

31263 

043160 


DAC 

AQRA 

31264 

601271 


JMP 

1 * 5 

0 12 6 3 

703161 


LAC 

AQRB 

012 6 6 

0^43163 


DAC 

LTST 

.'1267 

203160 


LAC 

AQRA 

01273 

701000 


PAX 




/ 

.EJECT 



BEFORE LOOPING, 


/A LAW B NO 1 ST ADDRESS 


/A LAW a NO LAST ADDRESS 
/RESTART PROGRAM 

/only one selected 

/LAST Or BLOCK 


/A LAW 8 NO LAST address 


/ONLY i ADDRESS WANTED 
/last or block 


/FIRST ADR, 

/mask bits 3,4 and 5 
/SAVE 

/LAST ADR, 

/MASK 3,4 AND 5 
/BOTW MUST a SAME 4K 
/OK 

/PRINT QUERY 
/START OVER 

/FIRST ADDRESS 

/ 2 'S COMPLEMENT 
/SUBTRACT LAST ADDRESS 
/FIRST IS > LAST IF NEG, 
/LEAVE AS IS 


/FIRST IS NOW LAST 


/LAST IS NOW FIRST 



PAGE 
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MXC158 

MXC15B 




4*1271 

760261 

/ 

S I MU 

LAW 

261 


.31272 

543136 


SAD 

TNUM 

/TEST 1 IF EQUAL 

."1273 

601302 


JMP 

S I Ml 


21274 

760262 


LAW 

262 


2 1275 

543136 


SAD 

TNUM 

/TEST 2 IF EQUAL 

21276 

601323 


JMP 

S J M2 


21277 

760263 


law 

263 


213650 

543136 


SAD 

TflUM 

/TEST 3 IF EQUAL 

21301 

601352 


JMP 

S I M3 


01302 

203206 

S I Ml 

LAC 

K7 


01303 

043202 


DAC 

XMSK 


01304 

143203 


DEM 

xcom 


31305 

203127 


LAC 

PCWA 


31306 

£43126 

sine 

DAC 

CNTRL 


31307 

102072 


JMS 

CHLP 


01310 

203160 


LAC 

AORA 


£1311 

503237 


AND 

K70K 


21312 

043200 


DAC 

WORK 


31313 

730000 


PLA 



01314 

740031 


CMA ! I AC 



01315 

343200 


TAD 

WORK 


01316 

721000 


PAX 



21317 

770000 


LAW 

•10000 


01320 

043143 


DAC 

CT4K 


31321 

100417 


JMS 

WRITE 

/write pattern 

01322 

601343 


JMP 

STSCP 


01323 

203212 

S I M2 

LAC 

K77 

/WRITE PATTERN #2 

01324 

£43202 


DAC 

XMSK 


21325 

203211 


LAC 

K40 


01326 

£43203 


DAC 

XCOM 


01327 

203130 


LAC 

pCwb 


31333 

601306 


JMP 

S J MC 


21331 

707702 

J 

SCP1 

EEM 


/SYNC 

01332 

210000 


LAC 

X 

/READ 

21333 

740001 


CMA 


/COMPLEMENT 

01334 

35 0 00 0 


DAC 

X 

/WRITE 

21335 

203200 


LAC 

WORK 


21336 

543163 


SAD 

LTST 

/CHECK FOR END OF BLOCK 

21337 

601343 


JMP 

i * A 


21340 

737001 


AXR*1 


/ADDRESS*! 

213 41 

443200 


IS* 

WORK 


21342 

601331 


JMP 

SCP1 


21343 

203162 

STSCP 

LAC 

ADRA 

/STARTING address 

21344 

043220 


DAC 

WORK 


21345 

730000 


PLA 



213 4 6 

740031 


CMA ! I AC 



21347 

343200 


TAD 

WORK 


2 1 3 5 2 

721000 


PAX 



21351 

601331 

/ 

JMP 

SCP1 




/ 

i EJECT 





0 A G E: 22 MXC15d MXC15B 

/ 

/ROUTINE TO SIMULATE TEST 3, ALL ONES 
/ARE WRITTEN INTO ONE 4K FIELD, AND 
/THEN THE ADDRESS IS LOOPED, THE 
/X LINE SPECIFIED JN THE FIRST ADDR 
/IS SET TO 000000, AND THEN READ. 

/THE LAST ADDR, AND ALL BETWEEN, ARE 
/NOT REFERENCED, 

/ 


21352 

102072 

S I M3 

JMS 

crlf 


01353 

203160 


LAC 

ADRA 


01354 

503237 


AND 

K70K 

/mask FIELD number 

01355 

243200 


DAC 

WORK 


21356 

730000 


pla 



01357 

740031 


CM A I I AC 



21360 

343200 


TAD 

WQRK 


01361 

721000 


PAX 



21362 

770000 


LAW 

•10000 


21353 

243143 


DAC 

CT4K 

/4K COUNTER 

01364 

777777 


LAW 

•i 


21365 

250000 


DAC 

X 

/WRITE l'S 

01366 

443143 


ISZ 

CT4K 

/DONE 4k WHEN SKIP 

21367 

601364 


JMP 

, -3 


21370 

163160 


DZM* 

aqra 

/clear x*y line 

01371 

223160 


LAC* 

ADRA 

/HANG HERE AND READ 

01372 

601371 


JMP 

. •! 




y 

/CHECK 

WANTED ADDRESS AND 

program area 

01373 

000000 

PROG 

0 



21374 

100646 


JMS 

WHERE 


21375 

042072- 


DAC 

CRLf 

/save 

21376 

760000 


LAW 



01377 

543155 


SAD 

AQRCW 

/NONE IF * LAW 

014 2 2 

621373 


JMP* 

PROG 


014 21 

203155 


lac 

AQRCW 


01422 

503237 


AND 

K70K 


21403 

542072 


SAD 

crlf 

/C(CRLF) * CURRENT' 4K BANK 

014 2 4 

741000 


SKP 


/EQUAL 

? 1405 

621373 


JMP* 

prOG 

/exit 

014 2 6 

441373 


ISZ 

PROG 

/RETURN*! 

214 2 7 

621373 

i 

JMP* 

PROG 

/exit 



/ 

.EJECT 





PAGt *1 


MXC13B mxc;sb 

/ 

/BIT SUPPRESSION INPUT ROUTINE, TyPE A 
/CARRIAGE RETURN TO RESUME TESTING Am. BITS 
/TO SUPPRESS, TYPE THE DECIMAL BIT POS l T I ON < S ) 
/SEPARATING EACH WJTh A COMMA, TERMINATE WITH 
/A C i R i PRESS RUB OUT TQ RESTART THE LINE IN 
/CASE OF TYPING ERROR, 


/ 


0141C 

000000 

SUPBIT 

0 



01411 

143167 


DEM 

sew 

/SUPPRESSION CONTROL WORD 

01412 

202662 


LAC 

SUPX 

/POINTER FOR SUPPRESSS 

01413 

043154 


DAC 

PRNT 


31414 

202663 


LAC 

SUPX A 

/C(SUPXA) 4 SUPB I T*1 

31413 

043157 


DAC 

OVER 


01416 

102072 


JMS 

C«LF 

/C«» LF 

01417 

102034 


JMS 

PNXT 

/PRINT '’SUPPRESS" 

01420 

101544 

AGAIN 

JMS 

KEVIN 

/wait foinput 

01421 

543216 


SAD 

K215 

/•CHECK FOR C.R, 

01422 

601467 


JMP 

EOT 

/DONE SELECTING 

01423 

543226 


SAD 

K377 

/CHECK FOR RUB-OUT 

01424 

601411 


JMP 

SUP8 I T* 1 


01423 

543217 


SAD 

K254 

/CHECK FOR COMMA 

01426 

601420 


JMP 

AGAIN 

/WAIT FOR NEXT BIT POS. 

01427 

101517 


JMS 

NUMB 

/determine input number 

01430 

601564 


JMP 

QUERY 

/NOT VALID RESTART 

01431 

741200 

/ 

SNA 


/CHECK FOR 0 

01432 

601513 


JMP 

2ERQ 

/POSITION 0 

01433 

043164 


DAC 

TtYW 

/ SAVE DIGIT 

01434 

101344 


JMS 

KEY I N 

/WAIT FOP SECOND DIGIT 

01435 

543217 


SAD 

K254 

/check for comma 

01436 

601475 


JMP 

EOM 

/2 DIGIT POSITION 

01437 

543216 


SAD 

KZ15 

/CHECK FOR C.R. 

01440 

601501 


JMP 

EOTA 

/DONE 

01441 

543226 


SAD 

K377 

/RUB. OUT IF NO SKJP 

01442 

601411 


JMP 

sjPBiTn 

/START over 

01443 

101517 


JMS 

NUMB 

/DETERMINE NUMBER 

01444 

601364 


JMP 

QUERY 

/NOT VALID, RESTART 


/ 


EJECT 



p A C- 1 2 2 

M X C 1 5 b 

v x 0156 




2 1 4 4 5 

4 3 1 0 5 

/ 

DAC 

ttyx 

/SAVE NUMBER 

;; 14 4 6 

223164 


LAC 

TTYW 

/PREVIOUS DIGIT 

.>1447 

744010 


RCLJ 

RCJJ RCL 


214 5 0 

744010 





21451 

744012 





214 5 2 

243165 


XOR 

TTYX 

/COMBINE DIGITS 

214 5 3 

7420*1 


CM A 


/l’ COMPLEMENT 

21454 

243166 


0 AC 

TTYV 

/SAVE 

21455 

777777 


LAW 

-i 


21456 

343166 


TAD 

TTYY 

/SUBTRACT 1 

21457 

243166 

ROTOR 

DAC 

TTYY 


21462 

203242 


LAC 

K400K 

/400B00 

21461 

744022 


RCR 



21462 

443166 


I SH 

TTYY 

/SHIPT COUNT 

214 6 3 

621461 


JMP 

.-2 

31464 

243167 


XOR 

sew 

/INSERT IN CONTROL WORD 

314 6 5 

043167 


DAC 

sew 

31466 

621422 


JMP 

AGAIN 

/wait for next bit position 

21467 

223167 

EOT 

LAC 

sew 

/SELECTION COMPLETED 

214 7 3 

740021 


CM A 



21471 

343170 


DAC 

BJTSUP 


214 7 2 

143167 


D2M 

sew 


314 7 3 

122072 


JMS 

crlf 

/cr.lf 

21474 

62141? 


JMP* 

SUPBI T 

/exit 

214 7 5 

203164 

EOM 

LAC 

ttyw 

/single digit 

21476 

740021 


CM A 



21477 

343204 


TAD 

K 1 


21502 

601457 


JMP 

ROTOR 


215 01 

20316 * 

lOTA 

LAC 

ttyw 

/INPUT DIGIT 

31522 

740021 


DMA 



315 2 3 

3430*4 


TAD 

K1 

/ 2 ’ S COMPLEMENT 

21504 

243166 


DAC 

TTYY 


2150 5 

223240 


LAC 

K400K 

/ 4 0 0 0 0 0 

■ 21526 

744020 


RCR 



3152 7 

443166 


I sz 

TTYY 

/SWIFT COUNTER 

i. 1 5 1 2 

6215*6 


JMP 

i *2 


31511 

243167 


XOR 

SCW 


2 1512 

6214/2 


JMP 

E0T*1 

/exit 

21515 

223167 

if E HO 

LAC 

sew 


31514 

2432*2 


XOR 

K400K 

/400000 

3151- 

.‘43167 


DAC 

sew 


'1516 

6 r ‘ 1 13 c 2 

/ 

JMP 

again 

/wajt fqr next 



.EJECT 
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MXC153 


MXCJ.58 


/ 


31517 

000000 

NUMB 

0 


31523 

203142 


LAC 

CT32 

31521 

503225 


AND 

K370 

31522 

543220 


SAD 

K260 

315 23 

741000 


SKP 


21524 

601531 


JMP 

.*5 

21525 

441517 


ISZ 

NUMB 

21526 

203142 


LAC 

CT 32 

21527 

503206 


AND 

K7 

01532 

621517 


JMP* 

NUM8 

21531 

543222 


SAD 

K270 

01532 

741000 


SKP 


31533 

621517 


JMP# 

NUMB 

01534 

203142 


LAC 

CT32 

01533 

503204 


ANO 

Ki 

01536 

740200 


S2A 


01537 

601542 


JMP 

.♦3 

•01540 

777770 


LAW 

■10 

01541 

601437 


JMP 

ROTOR 

21542 

777767 


LAW 

-11 

01543 

601457 

/ 

JMP 

ROTOR 



/ 

/character input 

J 

1 ROUTINE 

01544 

000000 

KEYIN 

0 


01545 

700312 


KRB 


31546 

700301 


KSF 


01547 

601546 


JMP 

• -1 

01550 

700312 


KRB 


01551 

343142 


OAC 

CT32 

01552 

621344 

/ 

JMP* 

KEY I N 



/ 

/CHECK 

f 

validity 

OF INPUT 

21553 

000000 

LEGAL 

0 


21554 

203142 


lac 

CT32 

21553 

543226 


SAD 

K377 

21556 

601034 


JMP 

KYBRD 

21537 

543216 


SAD 

K215 

21563 

623136 


JMP* 

EXJT 

31561 

503225 


and 

K370 

31562 

543223 


SAD 

K260 

31563 

621333 


JMP# 

LEGAL 

21564 

102607 

QUERY 

JMS 

WQT I S 

°1565 

623137 


JMP* 

OVER 


/ 

.EJECT 


/ascii input 


/CHECK FOR A 270 OR 271 
/RETURN*! 


/exit 

/* 8 OR 5 IF EQUAL 

/invalid 
/ascii INPUT 

/» A 8 IF BJT 17 ■ 0 
/A 9 

/SHIFT COUNT OF 8 
/SHIFT COUNT OF 9 


✓initialize 
/wait for input 

/READ BUFFER 
/SAVE 


CHARACTER 


/ASCII INPUT 
/IS IT A RUBOUT 
/start over 

✓CHECK FOR C,R, 

/line terminated 

/SHOULD EQUAL 260 
/O.K, 

/PRINT QUESTION MARK 
✓start line OVER 



page. 


MXC15B 


MXCX5B 


/PRINT A «E A CONTAINING PROGRAM 
/ 


31566 

it 3 £ 0 «/ 2 

LOCAT 

0 


21567 

750024 


LAS 


•31570 

503213 


AND 

K100 

31571 

740220 


S2A 


21572 

621566 


JMP» 

LOCAT 

21573 

102072 


JMS 

CRLF 

21574 

202667 


LAC 

PISIN 

21575 

043154 


DAC 

PHNT 

31576 

102034 


JMS 

PNXT 

21577 

100646 


JMS 

WHERE 

If 16 0 0 

043220 


DAC 

WORK 

21601 

744010 


RCLJ 

rtlj 

216 0 2 

742010 



31603 

740010 




21604 

503226 


AND 

K 7 

31605 

343220 


TAD 

*260 

31606 

102027 


JMS 

PCHAR 

2-1607 

203200 


LAC 

WORK 

31610 

744010 


RCLJ 

RTLJ 

31611 

742010 



21612 

742010 




31613 

742010 




31614 

5032^6 


AND 

K7 

31615 

343220 


TAD 

K260 

21616 

102027 


JMS 

PCHAR 

31617 

102072 


JMS 

crlf 

21623 

621566 


JMP * 

LOCAT 


/ 

.EJECT 


✓CR» LE 


/PR I NT "PROGRAM IS IN FIELD" 
/WHERE IS IT 


/PRINT 1ST HALF FIELD NO, 
RTl 


/PRINT 2ND HALF FJELD NO, 
/CR, LF 

/EMT 
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KXC15B 


MXC15B 


/generate 6 digit addresses 
/ 


21621 

J00000 

GETAD 

0 


01622 

707704 


LEM 


01623 

222677 


LAC* 

ROTA 

01624 

043162 


DAO 

NRQTA 

01625 

203142 


LAC 

CT32 

01626 

443162 

CNROT 

ISH 

NROTA 

01627 

601645 


JMP 

GOLEFT 

01630 

243155 


XOR 

AQRCW 

01631 

043155 


OAC 

AQRCW 

01632 

777777 


LAW 

-1 

01633 

562677 


SAD* 

ROTA 

01634 

601637 


JMP 

,*3 

01635 

442677 


IS? 

ROTA 

01636 

621621 


JMP* 

GETAD 

01637 

202700 


LAC 

ROTB 

01640 

042677 


DAC 

ROTA 

01641 

222677 


LAC* 

rota 

01642 

043162 


OAC 

NRQTA 

01643 

441621 


ISH 

GETAD 

01644 

621621 


JMP* 

GETAD 

01645 

744010 

GOLEFT 

RCL 


01646 

601626 


JMP 

CNROT 

01647 

777760 

ROTC 

LAW 

•20 

01650 

777763 


LAW 

■15 

01651 

777766 


LAW 

•12 

01652 

777771 


LAW 

-7 

01653 

777774 


law 

-4 

01654 

777777 


LAW 

"i 


/ 


.EJECT 


FROM KEYBOARD INPUT 


/GET A NEG, LAW FOR COUNT 

/shift counter 

/ASCII INPUT 
/ROTATE 1 left 

/adr, control, word 


/REC*D 6 DIGITS IF EQUAL 

/LAW pointer ♦ 1 
/EXIT and wait for next 
/ESTORE POINTERS 


/RETURNS 

/EXIT 


/ROTATE 15 LEFT FOR 1ST DIGIT 

/12 LEFT FOR 2ND 

/9 LEFT FOR 3RD 

/6 LEFT FOR 4TH 

/3 LEFT FOR 5TM 

/NONE FOR 6TH 
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MXC15S 


MXC158 


/ 

/ROUTINE TO ACCEPT TEST U M I T S FROM KEYBOARD INPUT 


016 25 

200000 

/ 

SLMTS 

0 




21656 

201622 


LAC 

GETAD-1 



21657 

041572 


DAC 

L0CAT*4 

/RESTORE JMP* 


21660 

102072 


JMS 

CHlf 

/CR» LF 


21661 

202670 


LAC 

TLMX 

/TEST LIMITS POINTER 


21662 

043154 


DAC 

PRNT 



21663 

102034 


JMS 

. PNXT 

/PRINT "TEST LIMITS" 


21664 

102072 


JMS 

cr^f 

/CR»L F 


21665 

202671 


LAC 

SLMX 

/C (SLMX) «SLMTS*1 


216 6 6 

043157 


DAC 

OVER 



21667 

202672 


lac 

QQN3 

/RETURN AD0'RES5*CREVR 


21670 

343156 


DAC 

EXJT 



21671 

101544 


JMS 

KEYIN 

/wait for input of mem, 

NO, 

01672 

543226 


SAD 

K377 



21673 

601656 


JMP 

3LMTS*1 



21674 

101553 


JMS 

legal 

/SE IF VALID 


21675 

203142 


LAC 

Ct32 

/ASCII INPUT 


31676 

503206 


AND 

K 7 

/MASK 15,16 AND 17 


21677 

744020 


rcri 

HTRI RAR 



21700 

742020 






01721 

740020 






21722 

043147 


DAC 

fjrsu 



01723 

101544 


JMS 

KEVIN 

/wait for input of field 

NO, 

217 2 4 

543226 


SAD 

K377 


217 2 5 

601656 


JMP 

SLMTS*! 



21726 

101553 


JMS 

LEGAL 

/SEE IF VALID 


21707 

203142 


LAC 

CT32 

/ASCII INPUT 


21710 

503206 


and 

K 7 

/MASK 15,16 AND 17 


21711 

744020 


RCR 1 

RTRj RTRj 

rtr 


21712 

742020 






21713 

742020 






01714 

742020 






21715 

243147 


XOR 

FIRST1 



01716 

043147 


DAC 

firsti 

/first field to test IS 

STORED 

21717 

101544 


JMS 

KEVIN 

/WAIT FOR COMMA 


0172 0 

543217 


SAD 

<254 



21721 

741000 


SKP 




217 2 2 

601564 


JMP 

QUERY 

/PRINT QUERY, AND RESTART 

217 2 3 

101544 


JMS 

KEYIN 

/WAIT FOR INPUT OF MEM, 

NO , 

.17 2 4 

543226 


SAD 

K377 



21725 

621656 


JMP 

slmts*i 



217 2 6 

101553 


JMS 

legal 

/SEE IF VALID 


.172 7 

2 G 3 1 4 2 


LAC 

LT32 

/ASCII INPUT 


2 1732 

503206 


and 

K7 



.'1731 

744020 


RCRI 

R T R } RAR 



.17 3 2 

742020 






2 1 7 3 3 

740020 






. 1734 

043152 


DAC 

wASTl 



2 1 7 3 5 

101544 


JMS 

<E Y I N 

/wait for input of fiel 

NO , 

2 1 7 3 6 

543226 


SAD 

K 3 7 7 



2 1 7 3 7 

601656 


JMP 

SL M T S + 1 



217 4 J 

101553 


JMS 

LEGAL 

/SEE IF VALID 




27 

MXC153 

MXC15B 




?17«1 

223142 


LAC 

C T 3 2 

/ASCII INPUT 

21742 

503226 


ANO 

K7 

/MASK 15,16 AND 17 

0174,3 

744220 


RCRI 

RTRJ RTR | 

RTR 

31744 

742022 





31745 

742220 





21746 

742020 





21747 

243150 


XOR 

LAST1 


01752 

043150 


0 AC 

LAST1 

/last field to test is stored 

21751 

777777 


LAW 

■1 


21752 

043143 


OAC 

CT4K 


217-53 

443143 

CREVR 

ISZ 

CT4« 

/NO 2ND DICJT IP NO SKIP 

21754 

601564 


JMP 

QUERY 

/PRINT QUERY AND RESTART 

31755 

203147 


LAC 

F IRST1 

/FIRST FIELD 

21756 

740021 


CMA 



21757 

343224 


tad 

Kl 

/2'S complement 

01760 

343150 


TAD 

LAST! 

/FIRST IS >LAST IF NEG, 

21761 

740100 


sma 



01762 

601771 

/ 

JMP 

OKAS 

/FIRST IS LOWEST ORDER 



w 

.EJECT 





PAGE. 28 N'XCisd MXC156 


/ 


31763 

223147 


LAC 

E JRST1 


^1764 

343146 


OAC 

CT04 

/SAVE 

31765 

223152 


LAC 

LAST! 


21766 

243147 


DAC 

F JRST1 

/LAST is NOW first 

21767 

223146 


LAC 

C T 0 4 


21770 

243150 


OAC 

LAST! 

/FIRST IS NOW LAST 

21771 

223152 

OKAS 

LAC 

IAST1 


21772 

543147 


SAD 

F ! RST1 

/SEE I F ONLY 1 SELECTED 

21773 

741000 


SKP 


/yes, see if it has program 

21774 

622224 


JMP 

ALOK 


21775 

543122 


SAD 

INSFLO 

/REJECT if equal, 

21776 

741200 


SKP 


/tell WHERE IT JS 

21777 

602224 


JMP 

ALOK 


22222 

762022 


LAW 



22221 

341572 


DAC 

L0CAT*4 

/CHANGE JMP# TO NOP 

22202 

121566 


JMS 

LQCAT 


22203 

601656 


JMP 

SLMTS*1 

/restart 

22224 

121544 

ALQK 

JMS 

KEYJN 

/wait for a c,r 

32225 

543216 


SAD 

K215 


02226 

621655 


JMP* 

SLMTS 

/EXIT 

32207 

601564 

f 

JMP 

QUERY 

/PRINT query and RESTART 



/SETUP 

ACS, 

PRESS CARRIAGE 

RETURN TO EXIT 

22213 

.23020 

j 

SETAC 

0 



32211 

122072 


JMS 

crlf 

/CR.LF 

22212 

222673 


LAC 

SETX 

/pointer 

22213 

243154 


DAC 

PRNT 


22214 

122234 


JMS 

PNXT 

/PRINT "SETUP ACS" 

32215 

720312 


KRB 



32216 

722301 


ksf 



32217 

622216 


JMP 

i*i 


32223 

720312 


KRB 



.2221 

543226 


SAD 

K377 

/CHECK FOR RO 

22222 

621656 


JMP 

SLMTS*l 

/RESTART 

22223 

753224 


LAS 



32224 

243124 


DAC 

MCWA 


32225 

122272 


JMS 

CRLF 

/CR»LF 

32"26 

622310 


JMP* 

SETAC 

/EXIT 


/ 


.EJECT 
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MXC15B 


MXC15B 


/ 

/PRINT ROUTINES FOR MESSAGES 
/ 

/PRINT ONE CHARACTER AND EXIT 
/ 


32027 

000000 

PCHAR 

0 


02333 

700406 


TLS 


02031 

700401 


TSF 


02032 

602031 


JMP 

• ■1 

02033 

622027 


JMP* 

PCHAR 



j 

/PRINT 

A STRING AND EX 

32034 

000000 

j 

PNXT 

0 


02035 

777775 


LAW 

■3 

32036 

043142 


DAC 

CT32 

02037 

443154 


isz 

PRNT 

02040 

223154 


lac* 

PRNT 

02041 

741200 


SNA 


02042 

622034 


JMP* 

PNXT 

02043 

042072 

MASK 

DAC 

crlf 

32044 

503212 


AND 

K77 

02045 

543212 


S AO 

K77 

02046 

602057 


JMP 

CK3 

02047 

043137 


DAC 

BITCON 

02053 

777740 


LAW 

• 40 

02051 

343137 


TAD 

BITCON 

02052 

740100 


SMA 


02053 

602067 


JMP 

CRLF-3 

32054 

242050 


XOR 

i - A 

•02053 

243223 


XOR 

K J00 

32056 

102027 


JMS 

PCHAR 

02057 

443142 

CK3 

ISZ 

CT32 

02063 

741000 


SKP 


02061 

602035 


JMP 

PNXT*1 

32062 

202072 


LAC 

crlf 

02063 

742020 


RTR | 

RTRj RTR 

32064 

742020 




02065 

742020 




32066. 

60204 j 


JMP 

MASK 

32067 

203137 


LAC 

BITCON 

32073 

343214 


tad 

K200 

3 20 71 

602056 


JMP 

CK3-1 


/ 


.EJECT 


/character counter 
/WORD POINTER*! 

/ALL DONE JF Z 
/EXIT 

/SAVE WORD 

/MASK 6 8 I T CHARACTER 
/CHECK IF RUBOUT 

/SAVE CHAR 


/NEC. $ ALPHA 
/NUMERIC 

/MAKE ALPHA 
/PRINT ACS 12-17 
/CHECK FOR 3 CHARACTERS 

/GET NEXT 3 CHARACTERS 
/POSITION NEXT 


/PRINT IT 
/MAKE NUMERIC 



p AGE 3 0 

M X C 1 5 6 

MXC15B 







/carriage return 

i. line 

feed 


2 in 2 

222322 

CRLf 

0 




22273 

762215 


law 

215 


/ASCII CR 

22274 

122227 


JMS 

PCM AR 



2 2 2 7 5 

542277 


SAD 

.*2 



2 22 7 5 

622072 


JMP* 

c«lf 


/EXIT 

22277 

760212 


LAW 

212 


/IF 

22122 

622274 

J 

JMP 

CRLF*2 





/PRINT 

i 

SPACES 




22121 

320003 

SP1NG 

0 




22122 

760240 


LAW 

240 


/ASCII SPACE 

32133 

102027 


JMS 

PCHAR 



22124 

443142 


ISZ 

CT32 


/COUNTER 

22125 

602102 


JMP 

SPJNG*1 



22126 

622101 


JMP* 

SPING 


/EXIT 



f 

/PRINT 

J 

six digit 

' OCTAL 

NUM8ERS 


22127 

000000 

f 

PRQCTL 

0 




22112 

777772 


LAW 

■ 6 



22111 

343142 


DAC 

CT32 


/DIGIT COUNTER 

22112 

202072 


LAC 

c«lf 


/OCTAL NUMBER 

22113 

744010 

positn 

RCLJ 

HTl 



22114 

742310 






32115 

342072 


DAC 

crlf 



22116 

740013 


sal 




32117 

503206 


AND 

K7 



22123 

343223 


TAD 

K260 



22121 

102327 


JMS 

PCHAR 


/PRINT 

22122 

443142 


I S i 

CT32 



32123 

602112 


JMP 

positn. 

1 

/POSITION NEXT DIGIT 

2 212 4 

622107 

/ 

JMP# 

PROCTL 


/EXIT 


• EJECT 
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MXC15B 


MXC15B 


/XCH15 • TAPE 3 
/ 


/ROUTINE TO DETERMINE HELD FOR 
/ 


02125 

202674 

CMQVE 

LAC 

ERTBL 

32126 

043250 


0 AC 

ERWRD 

32127 

203150 


LAC 

LAST1 

32130 

543147 


SAD 

F I RST1 

32131 

600216' 


JMP 

RTN1 

02132 

203121 


LAC 

FLAGS 

02133 

741100 


SPA 


02134 

600216 


JMP 

RTN1 

02135 

740020 


RAR 


22136 

7-41400 


SZL 


02137 

602224 


JMP 

NXTMV 

02140 

443121 


ISZ 

FLAGS 

02141 

203150 


LAC 

LAST1 

02142 

043122 


DAC 

JNSFID 

02143 

770000 


LAW 

-10000 

02144 

343122 


TAD 

INSFLO 

02145 

043171 


DAC 

NXLOC* 

02146 

100646 


JMS 

WHERE 

02147 

543122 


SAD 

JNSFID 

02150 

602207 


JMP 

SUB1 



y 

/NOW 

j 

CHECK FOR 

ERROR RECORDED 

02151 

760000 

ckerr 

law 


02152 

563250 


sad* 

ERWRD 

22153 

602164 


JMP 

STMV 

02154 

223250 


LAC* 

ERWRD 

02155 

543122 


SAD 

JNSFLU 

02156 

602176 


JMP 

EQUAL ' 

02157 

443250 


ISZ 

ERWRD 

02160 

203250 


LAC 

ERWRD 

22161 

542675 


S AO 

ENERR 

22162 

741000 


SKP 


02163 

602154 


JMP 

CKERR*3 

02164 

202674 

y 

STMV 

LAC 

ERTBL 

02165 

043250 


DAC 

ERWRD 

02166 

233122 


LAC 

INSFLU 

22167 

343173 


DAC 

OESTN 

22170 

100646 


JMS 

WHERE 

32171 

343172 


DAC 

SOURCE 

02172 

543173 


S AO 

DESTN* 

32173 

600216 


JMP 

RTN1 

32174 

203173 


LAC 

DESTN 

02175 

602343 

y 

JMP 

MOVE 




•EJECT 



RELOCATION 


/last to test 

/DON'T MOVE IF EQUAL 

/return 

/program FLAGS 

/FORCED MOVE MADE IF A 1, 
/DON'T MOVE 
/LINK ■ BIT 17 
/FIRST MOVE IF SKIP 
/SETUP FOR NEXT MOVE 
/SET FLAG FOR 1ST MOVE 


/•4k 

/SUBTRACT 4K from CURRENT 
/NXLOC » DEST»N FOR NEXT TIME, 
/WHERE ARE WE NOW 
/ALREADY IN LAST 1 IF EQUAL 
/TRY NEXT LOWER 

NEW FIELD 


/NO ERRORS IF * LAW 

/initialize MOVE 
/ERROR in field if EQUAL 
/pointer * 1 

/END OF TABLE IF EQUAL 


/RESTORE pointer 
/NEW FIELD 


/NEW and current are equal 

/MOVE PROGRAM 
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/EKROR 

/ 

IN NEW 

field, iry 

NEXT LOWER 

^2176 

543147 

f 

equal 

SAD 

F JRSU 

/DON'T TRY NEXT IF EQUAL 

32177 

602221 


JMP 

DNMVE 


02200 

741200 


SNA 


/IS IT FIELD 0 

02201 

602205 


JMP 

,*4 

/YES 

32202 

770000 


LAW 

•10000 

/■4K 

32203 

343122 


TAD 

INSFLD 

/SUBTRACT 4K FROM NEW FIELD 

02204 

043171 


DAC 

NXLOC* 

/next new field 

02205 

202674 


LAC 

ERTBL 


02206 

043250 

/ 

. DAC 

ERWRU 

/restore pointer 

02207 

203171 

f 

5 Util 

LAC 

NXLOC 

/next new FIELD 

02210 

543122 


SAD 

INSFLD 

/IS it * CURRENT NEW FIELD 

02211 

602176 


JMP 

EQUAL * 

/TRY NEXT LOWER 

02212 

043122 


DAC 

INSFLD 

/NEW NEW FIELD 

02213 

543147 


SAD 

FIRST! 

/DOES IT « LOWEST FIELD 

02214 

602151 


JMP 

ckerr 

/CHECK FOR ERROR 

32215 

770000 


LAW 

-10000 


02216 

343122 


TAO 

INSFLD 

/SUBTRACT 4k 

02217 

043171 


DAC 

NXLOC' 

/NEW FIELD FOR NEXT PaSS 

02220 

602151 

i 

JMP 

CKERR 


22221 

202674 

f 

DNMVE 

LAC 

ertbl 


02222 

043250 


DAC 

ERWRD 

/RESTORE POINTER 

22223 

600216 


JMP 

RTN1 

/start over 


/ 


EJECT 
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/ 


/ROUTINE TO DETERMINE PROGRAM DEST’N AFTER MAKING ONE MOVE 
/ 


2222 A 

100646 

NXTMV 

JMS 

WHERE 

/WHERE IS PROGRAM now 

22225 

343172 


0 AC 

SOURCE 


02226 

760330 

CKNXT 

law 



02227 

563250 


SAQ* 

ERWRD 

/NO ERRORS IF 1ST ■ LAW 

02230 

602243 


JMP 

STNXT 


02231 

202674 


LAC 

ERTBL 


02232 

343250 


DAC 

ERWRD 


32233 

223250 


LAC« 

ERWRD 

/GET AN ERROR ADDRESS 

02234 

543171 


SAO 

NXLOC 


02235 

602263 


JMP 

SUB2 

/E«ROR in NEXT field try next 

02236 

443250 


JSZ 

ERWRD 


02237 

203250 


LAC 

ERWRD 


32243 

542675 


SAO 

ENERR 


02241 

741000 


SKP 


/DONE TABLE AND NO ERRORS 

02242 

602233 

/ 

JMP 

CKNXT*5 


02243 

202674 

/ 

STNXT 

LAC 

ERTBL 


02244 

043250 


DAC 

ERWRD 

/restore pointer 

02245 

203171 


LAC 

NXLOC 

/NEW FIELD 

02246 

543122 


SAO 

JNSFLO 

/DOES IT i CURRENT FIELD 

02247 

602252 


JMP 

1 * 3 


02250 

543147 


SAO 

FIRST! 

/DOES IT ■ LOWEST FIELD 

32251 

602300 


JMP 

MVBK 

/yes, clear flags ano move 

02252 

543147 


SAD 

F IRST1 

/DOES The CU RENT ALSO* 






/the lowest field, 

02253 

602274 


JMP 

NXTHJ 

/yes, setup for highest field 

02254 

043122 


DAC 

JNSFLO 

/NEW CURRENT FIELD 

32255 

770030 


LAW 

-10000 

/•4k 

02256 

343122 


TAD 

JNSFLO 


02257 

043171 


DAC 

NXLOC' 

/new next FIELD 

32260 

203122 


LAC 

JNSFLO 


22261 

043173 


DAC 

DESTN' 


32262 

602343 


JMP 

MOVE 

/MOVE From HERE To C (DESTN) 




» EJECT 
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2 2 2 1 3 

233171 

/ 

SUB2 

LAC 

NX^OC 

/IS NEXT a FIELD 00 OR 1ST 

32264 

543147 


S AO 

F JRSU 


/ 2 2 6 3 

622221 


JMP 

ONMVE 

/YES, DON * T MOVE 

02266 

770000 


law 

•10000 

/•4< 

22267 

343171 


TAO 

NX^OC ' 

/NEW NEXT FIELD 

22273 

243171 


OAC 

NX^QC 


C2271 

543122 


S AO 

JNSFLD 

/DOES IT p CURRENT FIELD 

22272 

602264 


JMP 

SJB2 • 1 

/YES 

22273 

602231 

J 

JMP 

CKNXT*3 

/SEE IF ERROR IN NEW FIELD 

22274 

203130 

t 

NxTHJ 

LAC 

LAST! 

/last to test 

22275 

503244 


AND 

K370K 


v? 2 2 7 6 

243171 


OAC 

NXLOC 

/LAST » NEXT FIELD 

22277 

602231 


JMP 

CKNxT *3 

/CHECK FOR ERROR 

22322 

100646 

j 

MVBK 

JMS 

WHERE 


22301 

C43172 


OAC 

SOURCE 


22302 

203171 


LAC 

NXLOC* 


72303 

043122 


OAC 

INSTLO 


C2304 

243173 


OAC 

QESTN 


22305 

143121 


DZM 

FUGS 


22306 

602343 


JMP 

MOVE 



/ 

.EJECT 


0 TEST 
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/routine to 

FORCE MOVE THE PROGRAM. DESTINATION 



/FIELD# 

f 

MUST 

BE TYPED IN BY THE 

OPERATOR (00-37 OCTAL) , 

02307 

203242 

F COM V 

LAC 

K400K 


02310 

740001 


CM A 



02311 

503121 


and 

flags 


02312 

243242 


XOR 

K400K 

/SET BIT 0 FOR FCDMV FLAG 

02313 

043121 


DAC 

FLAGS 


02314 

202674 


LAC 

ERTBL 


2231!? 

043250 


DAC 

ERWRD 

/RESTORE TABLE POINTER 

02316 

102452 


JMS 

GOTO 

/PRINT GO TO FIELD 



f 

/CHECK 

FOR ERROR IN NEW FIELD 


02317 

760000 

j 

ckfcd 

LAW 



02320 

563250 


sad* 

ERWRD 

/NO ERRORS JF 1ST « LAW 

02321 

602343 


JMP 

MOVE 

/SEE WHERE TO GO 

02322 

223250 


LAC* 

ERWRD 


02323 

543173 


sad 

DESTN 

/DOES ERROR ■ NEW FIELD 

02324 

602332 


JMP 

XPRT 

/yes, print message 

22325 

443250 


152 

ERWRD 

/POINTER‘1 

22326 

203250 


LAC 

ERWRD 


32327 

542675 


SAD 

ENKRR 

/SEE JF ENO OF TABLE 

32330 

602333 


JMP 

i *3 

/DONE AND NO ERRORS 

02331 

602322 


JMP 

CKFCD*3 


02332 

102430 

XPRT 

y 

JMS 

PR5EL 

/PRINT ERROR IN SELECTED 4K 

02333 

202674 


LAC 

ERTBL 


02334 

043250 


DAC 

ERWRD 


02335 

203173 


LAC 

DESTN 


02336 

543172 


SAD 

SOURCE 


02337 

600216 


JMP 

RTN1 


02340 

043122 


DAC 

INSFLU 


32341 

503241 


and 

K300K " 


02342 

043176 

/ 

DAC 

PJNX 



i EJECT 
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/ 

/ROUTINE 

/ 

; to relocate the 

program 

2 234 3 

142620 

MOVE 

02M 

LQCER 


32344 

203173 


LAC 

OESTN 


02345 

503241 


and 

K300K 


32346 

043176 


DAC 

P I NX 


32347 

770020 


LAW 

-10000 

/-4k 

32353 

043143 


DAC 

CT4K 

/4K COUNTER 

02351 

223172 


LAC 

SOURCE 

/CURRENT field 

22352 

043174 


0 AC 

MOVES' 


32353 

740031 


CM A 1 I AC 



32354 

343173 


TAD 

OESTN 


02355 

721000 


PAX 


/NEW FIELD 

32356 

143201 


DEM 

MEMADH 

/LOC EERO START 

32357 

223174 

MOSOM 

LAC* 

MOVES ‘ 

/MOVE FROM CURRENT 

32360 

243136 


DAC 

TNUM 

/SAVE 

22361 

102437 


JMS 

RT19L 


02362 

050000 


DAC 

X 

/PUT IN NEW FIELD 

02363 

210 00 2 


LAC 

X 

/read back 

22364 

563174 


SAD* 

MOVES 

/COMPARE 

32365 

741000 


SKP 


/OK 

32366 

102551 


JMS 

MVERR 

/PRINT ERROR INFO 

02367 

443174 


ISE 

MOVES 

/increment addresses 

02373 

737001 


AXR*1 



32371 

443143 


ISE 

CT4K 


32372 

741000 


SKP 



22373 

602421 


JMP 

OJND 


22374 

203136 


LAC 

tnum 


32375 

542652 


SAD 

DLMT 

/delimiting charactei 

32376 

741000 


SKP 


/ADJUST indirects 

32377 

602357 


JMP 

MOSOM 



/ 

•EJECT 
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K X C 1 5 is 

MXC15B 


22400 

223174 

AJIN 

LAC# 

02401 

542713 


SAD 

02402 

602360 


JMP 

02403 

503232 


AND 

32404 

243173 


XOR 

02405 

102437 


JMS 

02406 

050000 


QAC 

02407 

210000 


LAC 

02410 

503232 


and 

22411 

243172 


XOR 

32412 

563174 


SAD* 

32413 

741000 


SKP 

02414 • 

102951 


JMS 

02415 

443174 


ISZ 

02416 

737001 


AXRn 

02417 

443143 


ISZ 

02420 

602400 


JMP 

02421 

102525 

/ 

DINO 

JMS 

02422 

203172 


LAC 

02423 

740031 


CM A J I AC 

02424 

343173 


TAO 

02425 

721000 


PAX 

02426 

740000 


NOP 

02427 

610216 


JMP 


/ 


• EJECT 


MOVES 

OLMTA 

/DONE InDIRECTS IP EQUAL 

MQS0M*1 

K7777 

/mask address bits 

DESTN 

/PUT FIELD NUMBER ON IT 

RT19L 

X 

/PUT IN NEW FIELD 

X 

/READ BACK 

K7777 

SOURCE 

MOVES' 

/compare 

MVSRR 

/OK 

/PRINT ERROR INFO 

MOVES 

/INCREMENT ADDRESSES 

CT4K 

AJJN 

SNOT 

/WAS TRANSFER MADE OK 

SOURCE 

DESTN 

RTN1»X 

/exit from here to loc 
/rtni in new fielo 
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/ 

/PRINT 

ERROR 

IN SELECTED 4 K 



02430 

200000 

/ 

PRSEL 

0 




22431 

102072 


JMS 

CRLF 

/CR» L r 


02432 

202712 


LAC 

ERSEL 

/TEXT POINTER 


22433 

043154 


DAC 

PHNT 



22434 

122034 


JMS 

PNXT 

/PRINT 


22435 

102072 


JMS 

CRLF 



22436 

602307 


JMP 

FCOMV 

/wait for another 

CHOICE . 



/ 

/ROTATE 

INSTRUCTION 1? LEFT 

BEFORE MOVING 


22437 

000000 

f 

RT19L 

0 




2244 0 

744000 


CLL 


/Ll^K ■ 0 


22441 

043136 


DAC 

TNUM 

/SAVE 


22442 

777767 


LAW 

•u 

/ »9 DECIMAL 


22443 

043146 


DAC 

CT04 

/SHIFT COUNT 


22444 

203136 


LAC 

tnum 

/INSTRUCTION 


22446 

740010 


RAL 




2 24 4 6 

742010 


RTL 




22447 

443146 


IS2 

CT04 



22450 

602446 


JMP 

.-2 



22451 

622437 

i 

JMP* 

RT19L 





f 

/KEYBOARD ROUTINE FOR forced 

J 

relocation 


22452 

000003 

r 

GOTO 

0 




22453 

750004 


LAS 


/READ ACS 


22454 

503211 


and 

<40 



22455 

741200 


SNA 


/CHECK BIT 12 


22456 

602470 


JMP 

NOSW 

/EQUALS 0 


22457 

122072 


JMS 

CRLF 

/CRiLF 


22462 

202701 


LAC 

ptwlv 

/text pointer 


22461 

043154 


DAC 

PRNT 



22462 

102034 


JMS 

PNXT 

/print PUT ACS 12 

On a 0 

22463 

750004 


LAS 




22464 

503211 


AND 

<40 



22465 

7 4 0 200 


S2 A 


/WAIT FOR the 0 


2 2 4 6 6 

622463 


JMP 

, «3 



.72467 

102072 


JMS 

CRLF 

/CR.LF X 2 


2 24 7 2 

102072 

NOSW 

JMS 

CRLF 



2 2 4 71 

202702 


LAC 

GOFl 

/TEXT POINTER 


2 2 4 7 2 

.43134 


DAC 

PHNT 



2 2 4 7 3 

102034 


JMS 

PNXT 

/PRINT rc to field - 

"2474 

101544 


JMS 

<E Y I N 

/wait for input 


2 2475 

543216 


SAD 

<215 

/A CR - NO FORCED 

MOVE 






/and RESUME AUTO 

relocate 

2 24 7 5 

602544 

/ 

JMP 

cflg 

/clear the FORCED 

move Flag 


.EJECT 
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3<477 

543226 


SAD 

K3 77 

32533 

602470 


JMP 

NOSW 

32521 

742320 


RTR 1 

RTR 

32522 

742020 




32523 

503241 


AND 

K300K 

22524 

043173 


DAC 

OESTN 

22525 

101544 


JMS 

KEY J N 

22525 

543216 


SAD 

K215 

£2527 

602544 


JMP 

CFi G 

22512 

543226 


SAD 

K377 

22511 

602470 


JMP 

NOSW 

22512 

742020 


RTR 1 

RTR 1 

22513 

742020 




22514 

742020 




22515 

740020 




22515 

503237 


and 

K70K 

22517 

243173 


XOR 

dEstn 

32522 

043173 


DAC 

OESTN 

22521 

100646 


JMS 

WHERE 

22522 

043172 


DAC 

SOURCE 

22523 

102072 


JMS 

crlf 

22524 

622452 


JMP* 

GOTO 

22525 

000000 

ENQT 

0 


22525 

202600 


LAC 

LOCER 

22527 

741200 


SNA 


32532 

622525 

J 

JMP* 

ENOT 

22531 

707704 

/ 

LEM 


32532 

142600 


DZM 

LOCER 

32533 

102072 


JMS 

crlf 

32534 

202704 


LAC 

NERN 

22535 

043154 


DAC 

PRNT 

32536 

102034 


JMS 

PNXT 

22537 

102072 


JMS 

crlf 

22543 

203121 


LAC 

FLAGS 

32541 

741100 


SPA 


22542 

622307 


JMP 

FCOMV 

22543 

602243 


JMP 

stnxt 

2 2 5 4 4 

203242 

J 

CFLG 

LAC . 

K400K 

22546 

740ZO1 


CM A 


2 2 6 4 6 

503121 


AND 

FLAGS 

2 2 6«7 

043121 


DAC 

FLAGS 

22652 

630216 


JMP 

RTN1 


.EJECT 


/RUBOUT, Re-PR I NT | go TO FIELD - 


/MASK BITS 1,2, 

/FIRST CHAR, OF FIELD NO, 

/wait for input, 

/A CR « NO FORCED MOVE 
/AND RESUME AUTO RELOCATE, 

/clear the forced move flag, 

/RUBOUT, RE-PR X NT | GO TO FIELD • 
RTRJ RAR 


/mask bits 3»« i 5, 

/OR FIRST « SECOND CHARS, 
/NEW FIELD, 

/where are we now 
/CURRENT FIELD 
/CR* LF 

/CHECK FOR E R ROR 


/NO ERRORS IF 0 
/ENTER NEW FIELD 


/CRiLF 

/text POINTER 

/PRINT NO MORE ERRORS 
/CR»LF 

/ACS 0 A 1 ■ FORCED MOVE 
/WAIT FOR ANOTHER CHOICE 
/try NEXT field lower 


/CLEAR THE FORCED MOVE FlAG 

/start over 
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22551 

330222 

/ 

MVERR 

0 


2255 2 

243151 


DAC 

BAOl 

22553 

7 2 1 <0 3 0 


PAX 


22554 

043152 


DAC 

OCAOR 

22555 

223174 


LAC* 

moves 

22556 

243153 


OAC 

GOODl 

22557 

232616 


LAC 

PHDR 

22563 

741200 


SNA 


22561 

122616 


JMS 

PHDR 

22562 

232622 


LAC 

LOCER 

22563 

741223 


SNA 


22564 

1 2 2 6 & 2 


JMS 

LOCER 

22565 

222615 


LAC 

JMP3 

22566 

341026 


OAC 

INOY 

22567 

132072 


JMS 

chlf 

22572 

777766 


LAW 

•12 

22571 

600763 

i 

JMP 

ster 

22572 

230761 

f 

LAC 

STCR*1 

22573 

241006 


DAC 

INOY 

22574 

750024 


LAS 


22575 

741100 


SPA 


02576 

130653 


JMS 

halt 

02577 

622551 


JMP* 

MVERR 

32600 

200022 

LOCER 

0 


32601 

132072 


JMS 

CRLF 

02602 

232703 


LAC 

RELOC 

02603 

343154 


DAC 

PRNT 

22604 

102034 


JMS 

PNXT 

22605 

132072 


JMS 

crlf 

22626 

622620 

j 

JMP* 

LOCER 

22607 

332303 

/ 

WOTIS 

0 


22610 

122272 


JMS 

crlf • 

02611 

762277 


LAW 

277 

32612 

122327 


JMS 

HCHAR 

32613 

122272 


JMS’ 

CRLF 

3 2614 

622607 

J 

JMP* 

WOTIS 

C2615 

632572 

/ 

JMp3 

JMp 

LQCER-6 


• EJECT 


/SAVE INCORRECT INSTRUCTION 

/FIELD AND ADDRESS 

/S A VE 

/CORRECT INSTRUCTION 
/SAVE 


/DON'T PRINT IF 1 

/PRINT PROGRAM RELOCATION ERROR 

/ JMP LOCER-3 


/-10 decimal 

/PRINT INFO 

/equals JMS sping 


/EM T 


/cr»lf 

/TEXT POINTER 

/PRINT PROGRAM RELOCATION ERROR 
/cr#lf X 2 

/EXIT and print the error 


/CR»LF 
/query mark 
/print 

/CR.LF 

/exit 
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/ 




/HEADER 

routine 

22616 

320002 

PHQR 

0 

22617 

102072 


JMS 

22620 

202705 


LAC 

32621 

043154 


DAC 

32622 

102034 


JMS 

32623 

102645 


JMS 

32624 

232706 


LAC 

32625 

043154 


DAC 

02626 

102034 


JMS 

02627 

102645 


JMS 

32633 

202707 


LAC 

32631 

043154 


DAC 

02632 

102034 


JMS 

32633 

102645 


JMS 

32634 

202710 


LAC 

02635 

343154 


DAC 

32636 

102034 


JMS 

32637 

102645 


JMS 

02640 

202711 


LAC 

22641 

043154 


DAC 

02642 

102034 


JMS 

02643 

102072 


JMS 

02644 

622616 

J 

JMP* 

32645 

000000 

/ 

CI.MN 

0 

02646 

777773 


LAW 

02647 

043142 


DAC 

32650 

102101 


JMS 

32651 

622645 


JMP* 


/ 


ZHIF 

/CR.LF 


TSTX 

PRNT 

/pointer FOR 

"TEST 

PNXT 

/PRINT TEST 


CLMN 

ADRXA 

/SPACE 5 
/"OCTAL ADR," 


PRNT 


PNXT ‘ - 
CLMN 

/SPACE 5 


GDATX 

PRNT 

PNXT 

/••GOOD" 


CLMN 

/SPACE 5 


BQATX 

PRNT 

PNXT 

/"BAD" 


CLMN 

/SPACE 5 


PCWX 

/"PAT, CONTROL 

WORD 

PRNT 

PNXT 



CRLF 

/CRiLF 


PHOR 

/DONE 


•5 



CT 32 
$PjNG 

/SPACE 


CLMN 




EJECT 
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/ 

/RETURN ADDRESSES UNDIRECTs) 


/ 


32652 

752521 

DLMT 

752521 

32653 

302756 

TSNX 

TSTNR 

£2654 

002762 

ADRX 

FADR1 

£2655 

301067 

AD1R 

ADR1 

£2656 

001117 

DON1 

DFST 

£2657 

002770 

AoXR 

LADR1 

£2662 

301143 

AD2R 

ADR2 

02661 

301171 

DON2 

DLST 

02662 

302775 

supx 

SUPR 

22663 

301411 

SUPXA 

SUPBIT*! 

02664 

003060 

ADR1P 

FRST 

02665 

003064 

ADR2P 

LSTA 

22666 

303002 

ovrlp 

ovrlap 

22667 

003034 

P I S I N 

PRO I S 

02670 

003045 

TLMX 

TSLM 

02671 

001656 

SLMX 

SLMTS*1 

02672 

001753 

D0N3 

CREVR 

22673 

003053 

SETX 

STACS 

02674 

003251 

ERT8L 

ERWRD*1 

02675 

003311 

ENERR 

ERWRD+41 

02676 

203070 

PTQ 

PTOI 

02677 

201647 

rota 

ROTC 

02720 

001647 

ROTB 

ROTO 

02721 

303137 

PTHLV 

PUT12 

02702 

303101 

GOFL 

gofld 

02703 

303013 

RELOC 

PROR 

02704 

303025 

NERN 

NOMO 

02725 

002714 

TSTX 

TST 

02706 

002720 

ADRXA 

ADR 

02707 

002725 

GDATX 

GOAT 

0 2713 

002731 

BOATX 

BOAT 

32711 

002734 

pcwx 

PCWR 

02712 

002744 

ERSEL 

slter 

02713 

752522 

DLMT A 

752522 

.EJECT 


/TEST#" 
/FIRST ADR, 


/[.AST ADR," 


/SUPPRESS- 

/FIRST 

/LAST 

/ADR, IS WITHIN PROGRAM 
/PROGRAM IS IN FIELD 
/TEST LIMITS 


/SETUP ACS 



3 A G£ 


A3 

MXC158 

MXC158 







/ 

/CONSTANTS FOR 

PRINT ROUTINE TEXTS, PACKED 



/3 characters 

PER WORU, 





/"TEST” 





02714 

002714 

tst 

1 




02715 

230524 


230524 

1 777724 j 

0 


02716 

777724 






02717 

000000 






02720 

002720 

/ 

ADR 

i 




02721 

240317 


240317 

1 4014011 

220401) 

0 

22722 

401401 





02723 

220401 






02724 

000000 






02725 

002725 

/ 

GDAT 

i 




02726 

171707 


171707 

1 777704| 

0 


£2727 

777704 






22730 

000000 






22731 

202731 

j 

BOAT 

i 




02732 

240102 


040102 

1 0 



02733 

000000 






02734 

002734 

/ 

PCWR 

• 




02735 

240120 


240120 

1 170340) 

222416) 

401417 

02736 

170340 






02737 

222416 






02740 

401417 






22741 

221727 


221727 

| 777704| 

0 


02742 

777704 






02743 

000000 






02744 

302744 

/ 

slter 

i 




02745 

222205 


222205 

1 4022171 

4016111 

140523 

02746 

402217 






22747 

401611 . 






02750 

140523 






22751 

240305 


240305 

| 400405) 

051106) 

770414 

22752 

400405 





22753 

051106 






32754 

770414 






22755 

300002 


0 




22756 

002756 

/ 

TSTNR 

i 




2 2 7 5 7 

230524 


230524 

) 774024) 

0 


22763 

774024 






. 2761 

200030 






2 2 7 6 2 

202762 

/ 

faqri 

• 




22763 

221106 


221106 

I 402423) 

220401) 

777740 

3 2 7 6 4 

402423 






22765 

220431 






22766 

777740 
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M X C 1 5 d 

MXC15B 




02767 

000000 


0 



02770 

002770 

/ 

JAUR1 

i 



02771 

230114 


2301141 

0140241 

402204 

02772 

014024 




' 

02773 

402204 





02774 

000000 


0 



02775 

002775 

/ 

SUPR 

• 



02776 

222523 


2025231 

0522201 

4023231 0 

22777 

352220 




03000 

402323 





33001 

000000 






EJECT 



PAGE 


45 

M X C 1 5 B 

MXC158 





’300 2 

003002 

/ 

OV«LAP 

1 




23003 

220401 


2204011 

231140} 

112740} 

111024 

33004 

231140 






03005 

112740 






03006 

111024 






23007 

224016 


204016J 

071722} 

150122} 

0 

03010 

071722 





03011 

150122 






03012 

000000 






03013 

003013 

/ 

PRQR 

i 




23014 

172220 


1722201 

01220/} 

224015) 

171405 

03015 

012207 





33016 

224015 






33017 

171405 






03020 

240103 


240103 J 

161711} 

220540} 

221722 

03021 

161711 





03022 

220540 






03023 

221722 






03024 

000000 

A 

0 




33025 

003025 

/ 

NOMO 

i 




03026 

401716 


4017161 

221715} 

054005) 

172222 

03027 

221715 






03032 

054005 






23031 

172222 






23032 

772322 


772322 J 

0 



03033 

000000 

i 





23034 

303034 

/ 

PRQIS 

• 




23035 

172220 


1722201 

01220/} 

114015) 

114023 

33036 

012207 





23037 

114015 






03040 

114023 






C3041 

064016 


064016 | 

140511} 

774004) 

0 

33042 

140511 






33043 

774004 






23044 

000000 

J 





03045 

003045 

/ 

TSL.M 

i 




33046 

230524 


2305241 

144024} 

1115111 

772324 

33047 

144024 






03050 

111511 






23051 

772324 






23052 

000000 


0 




23053 

003033 

/ 

STACS 

( 




23054 

240523 


2405231 

402025 } 

230301) 

0 

23055 

402025 






23056 

230301 






33057 

003000 






33062 

033060 

/ 

FRST 

• 




33061 

221106 


221106J 

402423} 

0 
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MXC15B 





33362 

402423 






33063 

330200 






03364 

333364 

y 

ISTA 

1 




03265 

230114 


230114/ 

774024/ 

0 


03066 

774024 






33067 

000000 






03070 

303070 

j 

PTQI 

. 




03071 

112220 


112220/ 

402416) 

242517) 

11*023 

03072 

402416 






03073 

242517 






03074 

114023 






03075 

111016 


111016/ 

2*110*1 

770405) 

0 

03076 

241102 






03077 

770405 






03100 

300000 

1 





03101 

203101 

t 

GOFLD 

• 




03102 

401707 


401707/ 

401724/ 

051106 / 

400414 

03103 

401724 






33104 

351106 






03105 

400414 






03106 

000000 

/ 

0 




33107 

203107 

/ 

PUT12 

t 




03110 

242520 


242520/ 

030140/ 

614023/ 

174062 

03111 

230140 






03112 

614023 






03113 

174062 






03114 

014016 


014016/ 

776040/ 

0 


03115 

776040 






03116 

300000 







.EJECT 
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MXC15B 


/STORAGE AND CONSTANT REG 


/ 


03117 

777770 

SIXT4 

LAW 

03120 

300000 

noprnt 

0 

03121 

000000 

FLAGS 

0 

03122 

000000 

INSFLO 

0 

03123 

300000 

LAST 

0 

03124 

300000 

MCWA 

0 

03125 

000000 

PCW 

0 

03126 

000000 

CNTRL 

0 

03127 

776000 

PCWA 

776000 

03130 

52525.0 

PCWB 

525250 

03131 

777777 

PCWC 

777777 

03132 

000000 

PATR 

0 

03133 

000000 

PATG 

0 

03134 

300000 

patwd 

0 

03135 

000000 

patn 

0 

03136 

000004 

TNUM 

4 

03137 

000000 

BITCON 

0 

03140 

000000 

SVADR 

0 

03141 

000000 

CTH2 

0 

03142 

000000 

CT32 

0 

03143 

000000 

CT4K 

0 

03144 

000000 

CU6 

0 

03145 

300000 

CT128 

0 

03146 

000000 

CT04 

0 

03147 

000000 

FIRST! 

0 

03150 

000000 

LAST1 

0 

03151 

000000 

badi 

0 

03152 

000004 

OCAOR 

4 

03153 

000000 

GOOD1 

0 

03154 

000000 

prnt 

0 

03155 

000000 

AORCW 

0 

03156 

000004 

EXIT 

4 

03157 

000000 

OVER 

0 

03160 

300000 

ADRA 

0 

03161 

300000 

AORB 

0 

03162 

000004 

NRQTA 

4 

03163 

300000 

IT5T 

0 

03164 

300000 

TTYW 

0 

03165 

000000 

TTYX 

0 

03166 

300000 

TTYY 

0 

03167 

000000 

sew 

0 

03170 

777777 

B I TSUP 

LAW 

03171 

300000 

NXLOC 

0 

03172 

300000 

SOURCE 

0 

33173 

300030 

DESTN 

0 

03174 

303000 

MOVES 

0 

03175 

300216 

BGNLO 

RTN1 

03176 

300007 

PI NX 

0 

33177 

330000 

S XR 

3 

33200 

333000 

WORK 

0 

03201 

333033 

MEMAOR 

0 


.EJECT 


/COUNTS 64 PASSES BETWEEN 
/ERROR PRINT SUPPRESSION, 

/indicates end or error print-outs 
/saves SUBROUTINE ruAGS 
/CURRENT FIELO WITH PROGRAM 

/LAST field WITH data error 
/SAVES ACS SETTINGS 
/current pat, control WORDS 
/SAME as pcw 

/control word for TEST 1 

/r OR TEST 2 
/r OR TEST 3 

/rotates control word 

/SAVES GOOD DATA DURING READ 
/SAME as patg but has suppresses bits 
✓HAS CONTROL WORD TO ROTATE 
/ASCII TEST NUMBER 

/FIELD COUNTER 


/4K COUNTER 
/COUNTS 16 ROTATES 
/COUNTS 128 LOCATIONS 

/utility counter 
/FIRST FIELO TO TEST 
/last field to test 
/SAVES BAD DATA 
/SAVES FAILING OCTAL A DRESS 

/good Data 

/POINTER FOR PR I NT ROUTINES 

✓partial address WORD 
/TO DISMISS 

/pointer to start of subroutines 
/1ST ADR, FROM KEYBOARD INPUT 

/last adr, from keyboard INPUT 
/ROTATE counter 
/last ADR, FOR scope loops 
zttyw thru yy used for keyboard 

/INPUT BIT SUPPRESSION 

/temp Storage OF SUPPRESSED BITS 

/EACH SUPPRESSED BIT * 0 

/next field to move into 

/FIELD to move from 

/field to move to 

/SAVE as moved 

/EXIT ADR, TO A new FIELD 

/S t ORAGE of mem, block that prog, is in 

/STORAGE LOG, FOR xr, 
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03202 000000 

03203 000000 

03204 000001 

33205 000002 

33206 000007 

03207 300010 

33210 300020 

33211 000040 

33212 000077 

03213 000100 

03214 000200 

03215 000212 

03216 000215 

03217 000254 

03220 000260 

03221 000263 

03222 000270 

03223 000300 

03224 000331 

03225 000370 

03226 000377 

33227 000400 

03230 004000 

03231 007700 

03232 007777 

03233 010000 

03234 017777 

03235 020000 

03236 040000 

33237 070000 

03240 074000 

33241 300000 

03242 <00000 

03243 177777 

33244 370000 

03245 700000 

33246 7700'00 


/ 

XMSK 0 

X COM 0 

<1 1 

K 2 2 

K7 7 

K 10 10 

K20 20 

<40 40 

<77 77 

<100 100 

<200 200 

<212 212 

<215 215 

<254 254 

<260 260 

<263 263 

<270 270 

<300 300 

<331 331 

<370 370 

<377 377 

<400 400 

<4< 4000 

<7700 7700 

<7777 7777 

< 10 < 10000 

<17S 17777 

<20K 20000 

<40K 40000 

K70K 70000 

K74< 74000 

K300K 300000 

K4U0K 400000 

<177 177777 

<370< 370000 

K7U0K 700000 

<770< 770000 

/ 

.EJECT 


/x-address mask 

/COUNTS X-LINES F QR PATTERN COMP, 
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MXC15S 

MXC15B 




/ERROR 

i 

flag table 

23247 

777700 

/ 

maxerr 

LAM *100 

23252 

003251 

ERWRD 

i *1 

03251 

760000 


LAW 

03252 

760000 


LAW 

03253 

760000 


LAW 

03254 

760000 


LAW 

03255 

760000 


LAW 

33256 

760000 


LAW 

33257 

760000 


LAW 

03260 

760000 


law 

03261 

760000 


LAW 

23262 

760000 


law 

03263 

760000 


LAW 

03264 

760000 


law 

03265 

760000 


LAW 

03266 

760000 


law 

03267 

760000 


LAW 

03270 

760000 


LAW 

03271 

760000 


LAW 

03272 

760000 


LAW 

03273 

760000 


LAW 

03274 

760000 


LAW 

03275 

760000 


LAW 

03276 

760000 


LAW 

03277 

760000 


LAW 

03300 

760000 


LAW 

03301 

760000 


LAW 

03302 

760000 


LAW 

03303 

760000 


LAW 

03304 

760000 


LAW 

03305 

760000 


LAW 

03306 

760000 


LAW 

03307 

760002 


LAW 

03310 

760002 


LAW 


020002 


, END 

03311 

770000 

*L 



SI2E*03312 



KXC15B 


MXC153 


PAGE. 62 

ADR 32723 

ADRA 33163 

AORti 33161 

ADRCW 33155 

AORX 32654 

AQRXA 32706 

ADR1 31067 

AOR1P 22664 

A0R2 31143 

ADR2P 02665 

AQXR 22657 

AD1R 02655 

AD2R 32660. 

AGAIN 01422 

AJIN 32400 

ALOK 22^04 

BADl 33151 

8DAT 32731 

0DATX 32710 

BEGIN 00200 

9GNL0 33175 

BITCON 33137 

BJTSUP 03170 

BRSTA 00546 

BURST 00524 

BUST 00556 

CBANK 30613 

CBOTH 21236 

CEND 30567 

CFLG 02544 

CKAL 20464 

CKERR 02151 

CKP CD 32317 

CKLST 21227 

CKNXT 02226 

CKXV 30471 

C<3 32357 

Cl^N 32645 

C L X 735003 

CHDVE 32125 

CNROT 31626 

C N T R L 3 3126 
CC'IPL 30414 

CREAD 20366 

CREVR 31753 

CRLF 32072 

C T 0 2 3 3141 

C T 0 4 2 3146 

2 T 12 £ 0 314 5 

C T 1 6 33144 

2 T it 2 3 1 4 2 

3T4< -3143 

DEST\ 23173 

0FST 21U7 

3 I \3 22421 



KXC15B 


HXC15B 
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uLMT 

2 2 6 5 2 

DL.MJ A 

22713 

dlst 

01171 

unmve 

22221 

DOALL 

20317 

QQERP 

22735 

DQN1 

22656 

DqE'2 

32661 

D0N3 

32672 

DOXY 

22537 

EBA 

707764 

EEM 

727702 

enerr 

22675 

enot 

02525 

EOM 

01475 

EOT 

21467 

eota 

01501 

ERA 

707762 

EQUAL 

32176 

ERROR 

00666 

ersel 

02712 

ERSET 

20466 

ERTBL 

22674 

erwrd 

33252 

EXAM2 

00275 

EXAP3 

00301 

EXBA 

707741 

EXIT 

03156 

EXREL 

20305 

EXTST 

00271 

PADR 

31106 

PAORl 

02762 

PCOMV 

02307 

PIRST1 

33147 

flags 

33121 

FRST 

03263 

GOAT 

02725 

GDATX 

02707 

GEN'PAT 

00377 

getao 

01621 

gqpl 

32702 

GQFlD 

03101 

goleft 

31645 

GOOD1 

33153 

gqto 

32452 

*^alt 

30653 

INDY 

310 0 6 

! \ S F L C 

03122 

JMBJ 

32615 

<i* IN 

0 1 5 4 4 

\R3 

703312 

<SF 

733301 

K v?RD 

31034 

<1 

33204 

■<10 

0 3 207 



h-xcisa 


MXC 15 B 


PAGE. 
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K 1 0 K 

*3233 

K100 

0 3213 

K 1 7 5 

-3234 

<177 

-3243 

<2 

03205 

K20 

03213 

K20K 

03235 

<200 

03214 

K212 

03215 

<215 

03216 

<254 

03217 

<260 

03220 

<263 

23221 

<270 

03222 

*300 

03223 

K302K 

03241 

<331 

03224 

<370 

03225 

<370< 

03244 

<377 

03226 

K4K 

03230 

<42 

03211 

<40K 

03236 

K400 

03227 

«400< 

03242 

<7 

03206 

<70K 

03237 

<700* 

03245 

< 7 4 K 

03240 

<77 

03212 

<770* 

03246 

<7700 

33231 

<7777 

03232 

L ADR 

31163 

LADRl 

02770 

LAST 

33123 

L AS T 1 

03153 

LEGA l 

31553 

l£ m 

737704 

U 0 " A T 

015 6 6 

locer 

32600 

*S r A 

33364 

ta T S T 

33163 

w aS< 

02043 

" A X l 5 * 

33247 

'•'C* A 

03124 

v E v a 2 P 

3 3 201 

M 2 5 w v 

02357 


02343 

M : V tL S 

03174 


*2303 

vi v e - - 

■ 2551 

'* £ ** *' 

. 2 70 4 

\ t T * K 

0 0 357 

\ C v c 

■’3325 
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MXC156 


MXC5.58 


NOMOP 

22626 

NQPRNT 

33120 

NOSw 

22470 

NROTA 

03162 

NUMB 

01517 

NXLOC 

33171 

NXTBNK 

23637 

NX TH I 

32274 

NXTMV 

02224 

N64 

30501 

OCADR 

23152 

OKAS 

31771 

OVER 

33157 

OVRLAP 

33002 

OVRLP 

32666 

PATG 

33133 

PATN 

23135 

PATR 

33132 

PATWO 

33134 

PAX 

721000 

PCHAR 

02027 

PCW 

33125 

PCWA 

03127 

PCW8 

03133 

PCWC 

33131 

PCWR 

02734 

PCWX 

32711 

PNOR 

22616 

P l NX 

33176 

P I S I N 

02667 

PNXT 

02034 

P 0 S I T N 

02113 

PRNT 

03154 

PROCTL 

02107 

PROG 

31373 

PRO I S 

33034 

PROR 

03013 

prsel 

02430 

PTO 

02676 

PTOI 

03070 

PTWLV 

0 27 01 

PUT12 

03107 

ouEfiv 

01564 

«coy 

3 0 4 4 6 

RE AO 

02424 

Relc: 

22703 

rota 

22677 

ROTB 

0 2 7 0 0 

R 0 T C 

01647 

RO T OR 

014 5 7 

K T \ 1 

02 216 

R T i V _ 

'2437 

SB A 

707761 

SC P i 

01331 

sc* 

0 316 7 
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SETAC 

0201 C 

bETUl 

0 36 0 4 

SETX 

0 2 6 7 3 

S I MC 

01306 

S J MU 

01271 

S I M 1 

31302 

S I M2 

21323 

S 1 M3 

21352 

S I X T 4 

23117 

SLMTS 

31655 

slmx 

22671 

slter 

22744 

SOURCE 

23172 

SPINS 

22101 

STACS 

23053 

STER 

20760 

STIP 

31215 

STMV 

32164 

STNXT 

22243 

STOVER 

00247 

STSCP 

21343 

SUBl 

22207 

SUB2 

22263 

SUPBI T 

21412 

SuPR 

22775 

SUPX 

02662 

SUPX A 

22663 

SVADR 

23140 

SW0 

00731 

SWl 

00723 

Sw2 

00711 

SXR 

03177 

TLMX 

3 2 6 7 1 

tls 

730406 

TNUM 

03136 

tse 

730401 

TSLM 

33045 

TSNX 

2-2653 

TST 

32714 

TSTN 

01*64 

TST\C 

31035 

T S T \ R 

32756 

TST X 

32725 

TST1 

30322 

TST2 

C2336 

TST3 

00353 

TTVW 

33164 

TTYX 

33165 

TT YY 

2 316 6 

WONT 

0 0 4 0 6 

wHERE 

2 0 6 4 6 

WONS 

00531 

WORK 

2 3202 

WOT IS 

226 0 7 

WHITE 

7^41 J 
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yxcisd 


MXC15B 


5!? 


XCO^ Z32Z3 
XMSK 33202 
XPRT Z2332 
Y6* 2252b 
zfERL’ 01513 
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BEGIN. 

2222c 

RTN1 

02216 

STOVER 

00247 

EXTST 

00271 

EXAM2 

0327b 

EXAM3 

03301 

EXREl 

30305 

OOALL 

00317 

TST1 

00322 

TST2 

00336 

TSTJ 

00353 

netrk 

00357 

CREAD 

03366 

genpat 

30377 

WCNT 

00406 

CO^PL 

00414 

WRITE 

33417 

READ 

00424 

ROOM 

03446 

CKAL 

00464 

ERSET 

30466 

C K X Y 

00471 

N6A 

00501 

Y64 

00506 

BURST 

00524 

WQNS 

00531 

DOXY 

32537 

BRSTA 

00546 

BUST 

00556 

CENQ 

00567 

S£TU1 

00604 

C 8 A K 

20613 

NO^CR 

0 0 6 26 

NXTBNK 

00637 

WHERE 

0 0 6 4 6 

W ALT 

00653 

ERROR 

02666 

Sw2 

00711 

5*1 

0 0723 

SWB 

0 0 7 31 

OOERR 

02735 

STEP 

0 0 760 

I \DY 

010 0 6 

K YRRO 

010 34 

TST\3 

01035 

TST\ 

010 6 4 

A D 5 1 

0 1067 

P A R 

* 1126 

JEST 

-1117 

AQR2 

0114? 

UAOR 

’116 ' 

jlST 

01171 

STL 3 

01215 

C , <Li T 

01527 


MXC158 
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MXC15B 


S I MU 

-1271 

SI Ml 

21302 

S IMC 

21306 

S I M2 

21323 

SCP1 

21331 

STSCP 

21343 

S I M3 

21352 

PROG 
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